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Tante cose in un colpo solo 

Vorrei che mi spiegaste come posso fa- 
re per realizzare un programma che ese- 
gua simultaneamente più operazioni: ad 
esempio, muovere uno sprite sul vi- 
deo, mentre in sottofondo si sente una 
musica d’accompagnamento. 

N. Monti 

R. Spesso i giochi per computer danno 
l'idea che la macchina stia svolgendo 
contemporaneamente più azioni. 

In realtà questa è solo un' illusione, la 
quale nasce dal fatto che la velocità 
con cui vengono eseguite le operazioni 
è talmente elevata da dare questa sen- 
sazione. 

Un sistema che realmente fa diverse 
operazioni nello stesso tempo deve es- 
sere formato da più computer o più pro- 
cessori: ognuno di questi, infatti, opera 
in maniera sequenziale. 

Vediamo comunque come si può dare l'i- 
dea di azioni simultanee; le azioni van- 
no separate in subroutine e con l'istru- 
zione IF-THEN si può decidere quale 


azione intraprendere usando un GO- 
SUB per saltare alla routine appropriata. 
Proviamo a realizzare un esempio in 
pseudo-linguaggio: 

IF pulsante di fuoco premuto THEN vi- 
sualizza il laser e setta il suo flag 
IF joystick si muove THEN muovi lo 
sprite 

IF è passato un secondo THEN suona 
un'altra nota della canzone 
IF laser-flag settato THEN muovi ancora 
il laser 

REPEAT questo ciclo 

E chiaro che dopo ogni THEN ci sarà un 
GOSUB alla routine appropriata. 

Se ad esempio il pulsante di fuoco non è 
premuto, non viene settato il flag relati- 
vo a tale azione e non viene fatto più al- 
cun controllo sul laser fino a che non si 
rientra nel ciclo. 

Viene poi fatta una PEEK sul joystick 
per vedere se il giocatore vuole muover- 
si (e in tal caso si modifica la posizione 
dello sprite dell'astronave). 

Per ultimo si controlla la variabile di si- 


stema TI o Tl$ per vedere quanto tempo 
è passato e intraprendere le azioni cor- 
rette. 

Tutto ciò viene continuamente ripetuto, 
poichèjsi ha praticamente un ciclo infini- 
to (la terminazione del programma dovrà 
comunque essere garantita da azioni in- 
terne alle routine). 

Il computer lavora velocemente ed è per 
questo che si crede nella contempora- 
neità. Resta da fare ancora una consi- 
derazione sulla velocità di esecuzione: 
quanto detto sopra dovrà naturalmente 
essere tradotto in BASIC e ogni azione 
sarà scritta in una subroutine. 

Nella stesura del programma si ricordi 
che conviene scrivere le routine all'ini- 
zio dello stesso, perch^quando l'inter- 
prete BASIC deve saltare a una certa li- 
nea, inizia a cercarla partendo dall'inizio 
del programma. 

Converrà allora scrivere il loop prece- 
dente verso la fine del programma. E' in- 
fine chiaro che ogni problema di velocità 
può essere risolto con l'utilizzo del lin- 
guaggio macchina, ma questo richiede 
una lunga trattazione. 
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SOTTO PRESSIONE NASCE PER RA( 
COGLIERE EDARE VOCE Al VOSTRI SI 
UNTI, Al VOSTRI STIMOLI, Al VOSTRI PI 
OBLEMI E PER PARLARNE CON SEMPl 
CITÀ E SERIAMENTE QUANDO È ILO 
SO, DIVERTENDOSI APPENA SI PUÒ 



SOTTO PRESSIONE E LA RIVISTA DI TI 
TI COLORO CHE NON VORRANNC 


FARSI SFUGGI 
RE LA BUONA 
OCCASIONE 
DI ESSERE CO 
NTEMPORAN 
EAMENTE, PR 
OTAGONISTI 
E CRONISTI DI 
UNA IN FORM 
AZIONE FRIZ 
ZANTE, SVARI 
ATA, CURIOSA 
E ATTUALE. 




GIORNALISMO: 

IL BELLO 
E LA BESTIA 


CINEMA: 


ABSOLUTE 

BEGINNERS 


VACANZE: 


SAPORE DI BARCA 


E POI... 

POTETE SCRIVERE 
ANCHE VOI 


SPORT: 

UN PO' DI CALCIO 
E UN PO' 

DI FOOTBALL 


MUSICA: 



MLX 

di C. Brannon 
trad. e adatt. 
di F. Stella 


M LX è un programma che permet- 
te di inserire listati in linguaggio 
macchina esenti in modo assoluto da er- 
rori e senza la perdita di tempo del do- 
ver battere e controllare lunghe sequen- 
ze di istruzioni DATA. 

Molti dei nostri listati di programmi in lin- 
guaggio macchina hanno il formato MLX 
(li riconoscete dal fatto che sono esclu- 
sivamente numerici) e richiedono quindi 
che MLX sia caricato in memoria ed ese- 
guito prima della battitura del listato. 

MLX vi chiederà l'indirizzo della locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. 

Questi valori sono sempre «ridicati nel- 
l'articolo che accompagna il listato. 

MLX vi segnala automaticamente gli er- 
rori di battitura MENTRE STATE DIGI- 
TANDO IL LISTATO e vi chiede di reinse- 
rire la linea errata. 

L'ultimo numero battuto di ogni linea rap- 
presenta il checksum e viene visualizza- 
to in re verse. 

Sono inoltre disponibili altri comandi, 
quali: 

SHIFT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che vole- 
te battere ed è utile nel caso si inseri- 
scano i listati in più parti. 

MLX versione per VIC 20 


SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un'istruzione 


LOAD "nome del file", 1,1 per il registrato- 
re, oppure LOAD "nome del file", 8,1 per 
l'unità a dischi, salvo diverse indicazio- 
ni date negli articoli corrispondenti ai va- 
ri programmi. Il programma sarà general- 
mente mandato in esecuzione con una 
SYS (indirizzo di partenza). 


1 00 PRINT" {CLR} {PUR}" ;CHR$ (142) ;CHR$ (8) ; 

: rem 1 81 

101 POKE788 ,194: REM DISABILITA RUN/STOP 

: rem 144 

110 PRINT" {RVS}{ 14 SPAZI}" :rem 117 

120 PRINT" {RVS} {DES} {OFF} [<*>] £{RVS} 

{DES} {DES } { 2 SPAZI }[<*>] {OFF} [<*>] 
£{RVS}£{RVS} " : rem 191 

130 PRINT"lRVS} {DES} [<G>]{DES} 

{ 2 DES} {OFF}£{RVS}£ [<*>] {OFF} [<*>] 
{RVS} {OFF}" : rem 122 

140 PRINT" {RVS} { 14 SPAZI}" :rem 120 

200 PRINT" { 2 GIU' } {PUR} {BLK}UN PROGRAMMA 
PER L' IN-TRODUZIONE { 2 SPAZI }DI ROUT 
INEIN LINGUAGGIO MACCHINA"; : rem 202 
205 PRINT" A PROVA DI ERRORE { 5 GIU'}" 

:rem 226 

210 PRINT" {BLK} { 4 SU}lNDIRIZZO DI PARTEN 
ZA" : INPUTS: F = 1 - F:C$=CHR$ (31+11 9*F) 

:rem 52 

2 20 IFS<2 56ORS>3276 7THENGOSUB3000 : GOTO 21 0 

: rem 2 

225 PRINT: PRINT: PRINT: PRINT :rem 123 

230 PRINT" {BLK} { 3 SU}lNDIRIZZO CONCLUSIV 
O" : INPUTE: F=1 -F :C$=CHR$ (31 +1 1 9*F) 

: r em 170 


2 40 IFE<2 56ORE>32767THENGOSUB3000 : GOTO230 

:rem 234 

250 IFE<STHENPRINTC$ ; " {RVS } INDI RI ZZO CONC 
LUSIVO < INDIRIZZO DI PARTENZA 
{ 3 GIU' }" :GOSUBl 000: GOTO 230: rem 27 

260 PRINT: PRINT: PRINT :rem 179 

300 PRINT" {CLR}" ;CHR$ (1 4) :AD=S :rem 56 
31 0 PRINTRIGHT$ ( " 0000" +MID$ (STR$ (AD) , 2) , 5 
);":";: FORJ = 1 TO 6 :rem 234 

320 GOSUB570 : IFN=-1 THENJ=J+N : GOTO 320 

: r em 2 2 8 

390 IFN=-21 1THEN71 0 :rem 62 

400 IFN=- 204THEN790 :rem 64 

41 0 IFN=- 206THENPRINT: PRINT" {GIU ' JlNSERIS 
CI UN NUOVO { 4 SPAZI } INDIRI ZZO" ; : INPU 
TZZ :rem 42 

41 5 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 

{RVSjESCE DAL CAMPO DI VA-" :rem 150 

416 I FN = - 206THENIFZZ< SORZZ>ETHENPRINT" 
{RVS}LORI INDICATO" :GOSUBl 000:GOTO41 0 

: r em 105 

417 IFN=- 206THENAD=ZZ : PRINT: GOTO 31 0 

:rem 238 

420 IFNO-1 96THEN480 :rem 133 

430 PRINT: INPUT" LISTATO : DA" ;F: PRINT, " 

{ 2 SIN}A" ; : INPUTT :rem 29 
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440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
; S ; " { S I N } , MASSIMO" ; E: GOTO430 

:rem 36 

450 FORI=FTOTSTEP6 : PRINT: PRINTRIGHT$ ("000 



0" +MID$ (STR$ (I) ,2) ,5) 

: rem 

30 

455 

FORK=OTO5 : N=PEEK ( I+K) :IFK= 

=3THENPRINTS 


PC ( 1 0 ) ; 

: rem 

34 

457 

PRINTRIGHT$ ("00"+MID$ (STR$ (N) ,2) , 

3) 


Il . 

1 r 

: rem 

1 57 

460 

GETA$ : IFA$>" "THENPRINT: PRINT: GOTO 31 0 



: rem 

25 

470 

NEXTK : PRINTCHRS (20) ; :NEXTI 

: : PRINT: 

PRI N 


T: GOTO 31 0 

: rem 

50 

480 

IFN< 0THENPRINT: GOTO 31 0 

: rem 

1 68 

490 

A ( J ) =N : NEXTJ 

: rem 

1 99 

500 

CKSUM=AD-INT (AD/2 56) * 2 56 : FORI = 1 T06 : CK 


SUM= (CKSUM+A ( I ) ) AND255 : NEXT : rem 

200 

510 

PRINTCHR$ (1 8) ; :GOSUB570 : PRINTCHR$ (20) 



: rem 

234 

515 

IFN=CKSUMTHEN530 

: rem 

255 

520 

PRINT: PRINT" LA RIGA E' STATA INSE 

-RIT 


A IN MANIERA ERRATA" 

: rem 

39 

525 

PRINT" RI - I NSER I RLA" : PRI NT : 

GOSUBl 000 : G 


OT031 0 

: rem 

1 67 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI=l TO6 : POKEAD+I- 1 , A ( I ) : 

NEXT 




: rem 

80 

550 

AD=AD+6: IFAD<ETHEN31 0 

: rem 

212 

560 

GOTO 71 0 

: rem 

1 08 

570 

N=0: Z=0 

: rem 

88 

580 

PRINT" [<+>]" ; 

: rem 

79 

581 

GETA$ : IFA$=" "THEN581 

: rem 

95 

585 

PRINTCHR$ (20) ;:A=ASC(A$) : IFA= 1 30RA=44 


ORA=32THEN670 

: rem 

229 

590 

IFA>1 28THENN=-A: RETURN 

: rem 

1 37 

600 

IFA< > 20THEN630 

: rem 

1 0 

610 

GOSUB690 : IFI =1 ANDT=44THENN 

= -l : PRINT" 


{SIN} {SIN}" ; :GOTO690 

: rem 

1 72 

620 

GOTO 570 

: rem 

1 09 

630 

IFA<48ORA>57THEN580 

: rem 

1 05 

640 

PRINTAS; :N=N*1 O+A-48 

: rem 

1 06 

650 

IFN>255THENA=20:GOSUB1 000: 

GOTO 600 




: rem 

229 

660 

Z=Z+1 : IFZ<3THEN580 

: rem 

71 

670 

IFZ = 0THENGOSUBl 000 : GOTO 570 

: rem 

1 1 4 

680 

PRINT" ,"; : RETURN 

: rem 

240 

690 

S%=PEEK (209) +256*PEEK (210) +PEEK ( 2 

11). 



: rem 

1 49 

692 

FORI =1 T03 : T=PEEK (S%-I ) 

: rem 

68 

695 

IFT< >44ANDT< >58THENPOKES%- 

1,32: NEXT 



: rem 

205 

700 

PRINTLEFTS (" { 3 SIN}",I-1) 

; : RETURN 



: rem 

7 

710 

PRINT" {CLR{ {RVS}*** SAVE *** 



{ 3 GIU' }" 

: rem 

236 

720 

INPUT" {GIU' } NOME DEL FILE 

" ; F$ 




: rem 

1 99 


730 PRINT: PRINT" { 2 GIU ' } {RVS }N {OFF }ASTRO 
0 {RVS }D {OFF } ISCO : (N/D)" :rem 128 

740 GETA$ : IFA$O"N"ANDA$O"D"THEN740 

:rem 30 

750 DV=1 -7* (A$ = "D" ) : IFDV=8THENF$ = " 0 : "+F$ 

:rem 158 

760 T$=F$ : ZK=PEEK (53) +256*PEEK ( 54 ) -LEN (T$ 
) :POKE782,ZK/256 :rem 3 

762 POKE781 , ZK-PEEK ( 7 82 ) * 256 : POKE780 , LEN ( 

T$ ) : SYS65469 :rem 109 

763 POKE780, 1 :POKE781 , DV: POKE782 , 1 :SYS654 

66 : rem 6 9 

765 POKE2 54 , S/256 : POKE253 , S-PEEK ( 2 54 ) *256 
: POKE780, 253 :rem 12 


766 POKE782 ,E/256 : POKE781 ,E-PEEK(782) *256 
: SYS65496 :rem 124 

770 IF ( PEEK (783) AND 1 ) OR (ST ANDl 91 ) THEN780 

: rem 1 1 1 

775 PRINT" {GIU' {OPERAZIONE CONCLUSA END 

: rem 1 52 

780 PRINT" {GIU' {ERRORE DI REGISTRAZIO-NE . 



RIPROVA." : IFDV=1 THEN720 

: rem 

8 

781 

OPENl 5,8,1 5: INPUT#! 5,El $ 

,E2$ : PRINTEl $ 


; E2$ :CLOSEl 5:GOTO720 

: rem 

1 03 

782 

GOTO 720 

: rem 

1 1 5 

790 

PRINT" {CLR{ {RVS}*** LO AD 

* * * 



{ 2 GIU' }" 

: rem 

212 

800 

INPUT" { 2 GIU'} NOME DEL 

FILE" ; F$ 




: rem 

21 5 


810 PRINT: PRINT" { 2 GIU '} {RVS }N {OFF {ASTRO 

O {RVS }D {OFF } ISCO : (N/D)" :rem 127 

820 GETA$ : IFA$< >"N"ANDA$< >"D"THEN82 0 

:rem 28 

8 30 DV= 1-7* (A$ = "D" ) : IFDV=8THENF$ = " 0 : "+F$ 

: r em 157 

840 T$=F$: ZK=PEEK (53) +2 56* PEEK (54) -LEN (T$ 

) :POKE782,ZK/256 :rem 2 

841 POKE781 , ZK-PEEK ( 782 ) * 2 56 : POKE78 0 , LEN ( 

T$ ) : SYS65469 :rem 107 

8 45 POKE780, 1 : POKE781 ,DV: POKE782 , 1 : SYS 6 54 
66 : rem 70 

850 POKE780 , 0:SYS65493 :rem 11 

860 IF (PEEK (783) ANDl ) OR (ST ANDl 9 1 ) THEN8 70 

: rem 1 1 1 



865 PRINT" {GIU ' {OPERAZIONE CONCLUSA GOT 
031 0 : rem 142 

870 PRINT" {GIU 1 {ERRORE DI CARICAMENTO .RI P 
ROVA. {GIU' }" : IFDV=1 THEN800 : rem 43 
880 OPEN 1 5,8,15: INPUT#! 5,El $ ,E2$ : PRINTEl $ 
; E2$ :CLOSEl 5 : GOTO 800 :rem 102 

1 000 REM CICALINO : rem 231 

1001 POKE36878 ,1 5:POKE36874, 1 90 :rem 206 

1002 FORW=lTO300:NEXTW :rem 117 

1003 POKE 36878,0: POKE 36874, 0: RETURN 

:rem 74 

2000 REM CAMPANELLO :rem 130 

2001 FORW= 1 5TOOSTEP-1 : POKE36878 ,W: POKE368 

76,240: NEXTW :rem 22 

2002 POKE36876,0: RETURN :rem 119 

3000 PRINTC$; " {RVS {NON IN PAGINA ZERO O 

{ 2 SPAZI {SU ROM { 4 GIU ’ } " :GOTOl 000 
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Piccola guida per 
l’input 

dei programmi 


m m olti dei programmi listati da SUPERCOMMODO- 
ITIrE contengono particolari caratteri di controllo 
(controllo cursore, tasti colore, video-inverse, ecc.). 
Per rendere chiaro ciò che dev’essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati contengono delle «parole» racchiu- 
se tra parentesi graffe { }; tali parole rappresentano 
particolari caratteri di controllo: { GIÙ) significa premere 
il simbolo del cursore verso il basso. {5 SPAZI} vuol dire 
battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio { 10 N }) dovrà essere interpretato co- 
me «premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte il tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [<>], 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo- 
re» è quello posto nell’angolo in basso a sinistra). 

Se il tasto scritto tra [{)] è preceduto da un numero, 
ciò significa che il tasto dev’essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico 
solitario racchiuso tra parentesi graffe. Tale carat- 
tere può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio {A} sta ad indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l’esecuzione del programma. È per que- 
sto motivo che nei programmi si troveranno dei { SIN }, 
1 HOME } e {BLU}. 

L’unico modo perché il calcolatore distingua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L’unico comando di editing non utilizzabile all’interno 
di un programma è il DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette» quando inserite spa- 
zi nella linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

{CLR} 

{HOME} 

{SU} 

-{GIU* } 

{SIN} 

fDES} 

{ RVS } 

{OFF} 

{ BLK } 

{ WHT } 

{RED} 


EEI1323 


lì CRSR U 


IT CRSR U 


$=CRSR =» 


<=CR$R=* 


EEia B 
Gran 

ISTMI 

GZ3B 

BZ9Q 


Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

03 

G 

{CYN } 

CEBO 


[<7>) 

□ B 

□ 

03 

m 

{PUR} 

MITI Q 

il 

[<8>] 

□ □ 

m m 
m m 

M 

n 

{GRN } 

E229B 

□ 

{FI} 

co 

5 

3 

E 

{BLU} 

Q 

□ 

{ F2 } 

«a 

a 

B 

il 

{yel} 

tma 

Si 

{ F3 } 

w 

5 

B 

a 

[<1>] 

00 

□ 

{ F4 } 

(23 

Ifi 


□ 

[<2>] 

so 

15 

{ F5 } 

Km 

II 


■ 

t < 3 > ] 

0 B 


{ F6 } 

Km 

a 


■ 

t < 4 > 1 

0D 

m 

{ F7 } 

Km 

■i 


il 

I < 5 > ] 

0 B 

E 

{ F8 } 

Km 

■ 


£ 

t<6>] 

0 □ 

■i 
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Venti fantastiche lezioni settimanali su cassetta, 
per apprendere in modo facile, interattivo e 
divertente, il BASIC, i principi di funzionamento 
dell’hardware e le tecniche di programmazione 
degli home computer più diffusi. 

Ogni lezione contiene esercizi di familiarizzazione 
con la macchina e con il suo linguaggio, in più 
alcuni giochi di crescente difficoltà, analizzati nella 
\ loro struttura. 


OGGI IN 5 VERSIONI 


& PLUS/4 


DIVISIONE GRANDI OPERE 




di J.Grubbs 

trad. e adatt. di M. Anticoli 



Questo articolo mostra come ac- 
cedere al TEDMON e come intro- 
durre i primi comandi, 
il computer Plus/4, oltre ad es- 
sere noto per il suo BASIC este- 
so, è molto conosciuto per il so- 
ftware ad esso incorporato. 

All'inizio per l'utente il "pezzo" 
di software integrato più miste- 
rioso è probabilmente II TED- 
MON, nome derivato dalle inizia- 
li di Text Editor Device, un chip 
contenuto nel Plus/4, e da 
MON, diminutivo di monitor, un 
termine che si riferisce a un pac- 
chetto software usato quando si 
programma in linguaggio mac- 
china. 


Un monitor dà un accesso diretto alla 
memoria del computer; questo è utile se 
si vogliono introdurre dei dati in una spe- 
cifica locazione di memoria o recupera- 
re questi dati dalla memoria. 

Con TEDMON è possibile controllare il 
contenuto di ogni sezione di memoria 
del Plus/4 ed eventualmente modificare 
i dati in essa inclusi oppure, se si è un 
esperto programmatore, si può scrivere 
un programma in linguaggio macchina 
direttamente in memoria senza l'aiuto di 
un assemblatore. 

L’intenzione di questo articolo non è di 
insegnare a scrivere dei programmi in 
linguaggio macchina, ma di usare TED- 
MON per divertirsi e imparare qualcosa 
di nuovo del computer. 


Guardare la memoria 

Attivare TEDMON è molto semplice: ba- 
sta digitare MONITOR e premere il ta- 
sto Return: si inizierà così il viaggio alla 
scoperta di TEDMON. 

Appena immessi in modo TEDMON si ve- 
drà una linea del tipo: 


PC SR AC XR YR SP 
; FFOO 00 01 FF 00 F9 
I caratteri appena visti sono i contenuti 
dei registri riservati al chip di elaborazio- 
ne del computer; questi contenuti ver- 
ranno visualizzati ogni volta, premendo 
il tasto R. 

Uno dei primi comandi da imparare per 
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saper usare bene il TEDMON è il coman- 
do MEMORY. Digitando M 0000, e pre- 
mendo Return, è possibile vedere le pri- 
me 96 locazioni di memoria; invece nella 
parte in reverse verranno visualizzati 
dei caratteri alfanumerici e grafici. 

Se il lettore guarderà attentamente i nu- 
meri, si accorgerà dell’esistenza di nu- 
meri ”strani” come FA o 0F. Diciamo subi- 
to che i numeri non sono strani, poiché il 
TEDMON accetta solamente numeri nel 
sistema esadecimale; mentre nel siste- 
ma decimale i numeri vanno da 0 a 9, in 
quello esadecimale vanno da 0 a F, do- 
ve i primi dieci vanno da 0 a 9 e i restanti 
sono A,B,C,D,E,F, che rappresentano ri- 
spettivamente 10,11,12,13,14,15. 

Se non si è capaci di convertire un nu- 
mero da esadecimale a decimale, non bi- 
sogna disperare, perchè il BASIC 3.5 
comprende una funzione chiamata 
DEC. Quando si è in modo BASIC, dopo 
aver digitato PRINT DEC ( H xx")- dove xx 
rappresenta il numero esadecimale-, si 
prema il tasto Return e comparirà il valo- 
re decimale. 

Sfortunatamente questo utilissimo co- 
mando non lavora in TEDMON. Digitan- 
do M 0000 FFFF, e naturalmente Return, 
si visualizzeranno righe di numeri e let- 
tere. 

Per rallentare lo scroll bisogna tenere 
premuto il tasto Commodore; per ferma- 
re completamente la visualizzazione di 
numeri bisogna premere il tasto 
RUN/STOP. 

Se si vuole vedere la memoria con più 
calma, basta premere M 0000 e poi ogni 
volta che la visualizzazione di numeri si 
fermerà bisogna premere la lettera M. 
Nella sezione in reverse ci sono i carat- 
teri ASCII dei valori delle locazioni di me- 
moria. 

Il Plus/4 usa una tecnica che permette 
di poter distinguere la ROM (memoria di 
sola lettura) e la RAM (memoria ad ac- 
cesso casuale). 

Usando il comando M, si potrà vedere la 
locazione di memoria 7F8: digitando M 
7F8, si può vedere il contenuto di que- 
sta locazione, che normalmente contie- 
ne 0; questo significa che l’indirizzo de- 
cimale da 8000 contiene la ROM, la qua- 
le a sua volta contiene il linguaggio BA- 
SIC e le routine kernal. 

Cambiando il valore della locazione sud- 
detta con 80 esadecimale si potrà vede- 
re !a RAM a partire dall'indirizzo 8000. 

Per fare questo cambio di valore biso- 
gna mettersi sopra il valore della locazio- 
ne 7F8 (00), mettere il nuovo valore 
(80) e premere Return. 

Adesso nella locazione 7F8 è contenuto 
un nuovo valore, che è equivalente a 
unaPOKE. 

Se si è curiosi, si provi a premere M 


8000 FFFF: sullo schermo verranno vi- 
sualizzati tanti caratteri strani, in rever- 
se, poiché non si è immagazzinato un 
programma in questa zona di memoria. 
Prima di continuare il nostro viaggio bi- 
sogna riportare la locazione 7F8 a 0. 


Altri comandi 

Un altro comando utile e divertente è il 
comando di ricerca (HUNT). Facciamo 
subito un esempio: se si vuole cercare 
in memoria il nome FRED senza guarda- 
re tutta la memoria, bisogna usare la se- 
guente linea: 

H 0000 FFFF ’FRED (premere Return) 

Adesso TEDMON cercherà il nome 
FRED dall'inizio della memoria fino alla 
fine. 

Appena trovato il nome, TEDMON vi da- 
rà il valore della locazione che lo 
contiene e cercherà ancora fino alla fi-^ 
ne della memoria: se trovasse 
qualcosa, vi avvertirà. 

Il nome FRED è contenuto nella locazio- 
ne BC20 (le prime due locazioni date da 
TEDMON bisogna sempre ignorarle). 

Se adesso andiamo a vedere questa lo- 
cazione (M BC20), noteremo che non so- 
lo esiste FRED B., ma anche TERRY R. 
e MIKE I.: questi nomi resteranno peren- 
nemente nel vostro computer!! 

A questo punto facciamo un piccolo 
esperimento e torniamo in BASIC; per 
uscire da TEDMON bisogna premere la 
lettera X. 

Si provi a digitare queste due istruzioni: 

10 PRINT"IL MIO CANE SI CHIAMA 
MACCHIOLINA" 

20 PRINT"LA VOLPE E' MARRONE" 

Dopo essere rientrati in TEDMON, digi- 
tando monitor o M Shift O, si provi a cer- 
care il termine IL con H 0000 FFFF 'IL. 

11 programma che avete poco prima digi- 
tato è ancora in memoria, solo che le pa- 
role chiave BASIC non sono visibili, per- 
chè sono abbreviate o "tokenizzate". 
Adesso si provi a tornare in BASIC e di- 
gitare LIST: si può vedere che il pro- 
gramma è ancora in memoria; si provi a 
digitare NEW e si rientri in TEDMON; se 
adesso andiamo a vedere la memoria, 
notiamo che c’è ancora il vecchio pro- 
gramma. 

Un altro utile comando è quello relativo 
al disassemblaggio: con D FFD0 si di- 
sassembla dalla locazione FFD0. 

Sul video apparirà un numero con tre let- 
tere del tipo: LDA, JSR JMP. 

Se ad esempio incontrassimo JSR 
F043, significa: "vai alla subroutine a 


partire da F043", questo comando è co- 
me il GOSUB in BASIC. Per ulteriori in- 
formazioni sul linguaggio Assembly vi 
consigliamo di leggere dei libri sull'argo- 
mento. 



Con TEDMON è anche possibile carica- 
re dei programmi sia da nastro che da 
disco. 

Se ad esempio il nome del programma 
da caricare è "TEST", usando il disco 
occorrerà digitare la seguente istru- 
zione: 

L "TEST", 08 oppure da cassetta 
L TEST", 01 

Se invece dobbiamo salvare un nostro 
lavoro o una zona di memoria, si dovrà 
digitare: 

S "TEST", 08, 0400, 0BFF 

dove S è il comando di save, TEST è il 
nome del programma, 08 è il numero del 
dispositivo (nel nostro caso il disk dri- 
ve) e 0400, 0BFF sono le locazioni degli 
indirizzi iniziale e finale. Ciò salverà il 
programma TEST su disco dalla locazio- 
ne di memoria 0400 fino a 0BFF. 

Se poi si vuole verificare se un file è sta- 
to registrato correttamente, esiste un 
comando di verify: V "TEST", 08 che ve- 
rifica il programma test su disco. 
Crediamo che con questo articolo il TED- 
MON non sia più tanto misterioso e spe- 
riamo inoltre che vi divertiate a impara- 
re qualcosa di molto utile per l’uso del 
vostro computer. 
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di B. R. Carson 

trad. e adatt. di S. Albarelli 



Volete conoscere come il disk 
drive 1541 tratta le informazioni 
sui dischetti flessibili? Questo 
programma può essere un aiuto 
molto valido per coloro che desi- 
derano trattare byte per byte le 
informazioni poste su un di- 
schetto. Il programma gira su 
VIC 20 provvisto di espansioni 
da 3 KRAM In su, CI 6 e Plus/4. 


Ingegneri e scienziati matematici usano 
il termine "scatola nera" per definire una 
macchina che non si può aprire e mani- 
polare dalNnterno, se non si è dei com- 
petenti. 

Chi non ha nozioni basilari per capire il 
funzionamento dell'oggetto non può dire 
cose precise su come esso svolga la 
sua funzione. 

Egli sa solo come fare per fargliela svol- 
gere e come utilizzarla in maniera ade- 
guata. Esistono molte "scatole nere" in- 
torno a noi. Per utilizzare la televisione, 
ad esempio, è necessario sapere solo 
come accenderla, spegnerla, scegliere 
il canale desiderato e poche altre cose. 
Non è necessario sapere cosa sono e 
come funzionano i suoi componenti 
(transistor, chip, condensatori, 
eccetera). 

Per comunicare mediante il telefono le 
persone non devono sapere come fun- 
zionano le sue parti meccaniche ed elet- 
triche: basta loro alzare la cornetta, 
comporre il numero e parlare con chi de- 
siderano. 

Una scatola nera che interessa molto 
da vicino coloro che hanno a che fare 


con i computer, sia per giocare sia per 
lavorare è il disk drive. 


Tracce e settori di un dischetto 

Se volete conoscere come sono 
immagazzinate le informazioni su un di- 
schetto flessibile, basta introdurre 
nell’unità il dischetto dimostrativo allega- 


to al drive e caricare il programma "Di- 
splay T&S". Dopo averlo caricato in me- 
moria e averlo fatto girare, il computer 
chiederà all'utente quale traccia e setto- 
re esplorare. Se si risponde con 18 e 1 a 
tale domanda, si potrà osservare la 
directory del dischetto presente nel dri- 
ve (se lo si desidera, si può introdurre 
qualsiasi dischetto, a patto che lo si fac- 
cia prima di dare il RUN al programma), 
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scomposta in ognuno dei suoi byte, vi- 
sualizzati in esadecimale a fianco dei 
caratteri ASCII a cui danno luogo. Nel- 
l’appendice D del manuale del drive 
1 541 c'è una spiegazione di cornei sud- 
diviso un dischetto quando viene format- 
tato. 


A cosa serve e come funziona il 
programma "Disk handler" 

"Disk handler" è un ampliamento e una 
versione riveduta del programma "Di- 
splay T&S", presente sul dischetto dimo- 
strativo allegato al drive. 

In questa versione è possibile gestire in 
modo ancora più interattivo i dischetti. 
Infatti "Disk handler", oltre a permettere 
la lettura del contenuto di un dischetto, 
consente anche di scrivere nuovi valori 
in qualunque byte, modificando il conte- 
nuto del dischetto stesso. 

Per fare ciò sono stati aggiunti tre impor- 
tanti comandi: cambiare, riscrivere e ter- 
minare. 

Dopo aver fatto partire il programma e 
selezionato quale blocco si vuole esami- 
nare, indicando in quale settore e trac- 
cia si trova, si possono vedere sedici li- 
nee di quattro byte ciascuna, per un to- 
tale di 64 byte. 

Poiché ogni settore contiene 256 byte, 
sono necessarie quattro schermate di 
quel tipo per mostrare il contenuto di un 
intero blocco. In fondo allo schermo, a 
visualizzazione terminata, è possibile 


vedere quattro opzioni: Continua (S/N), 
Cambio (C), Riscrive (V), Fine (F). 

Per osservare la successiva schermata 
da 64 byte si risponderà all’ opzione 
"continua" premendo S (per "si"). Se in- 
vece si vuole osservare un altro blocco, 
si risponderà N (per " no"). 

L’opzione di cambio permette di modifi- 
care il contenuto alPinterno del disco. 
Per selezionarla basterà premere C 
(cambio). A questo punto il computer 
chiede all'utente da quale byte iniziare 
per sostituire il contenuto del blocco. 

Esso può essere letto nella prima colon- 
na di numeri della tabella e deve essere 
espresso in esadecimale. 

Il cambio del contenuto non è diretto, 
ma avviene in un apposito buffer, nel ca- 
so ci si ripensasse. 

Se ad esempio si desidera modificare il 
byte 00, si risponderà alla domanda 
con tale cifra. Allora apparirà, una colon- 
na più in basso, il contenuto attuale del 
byte prescelto. 

A questo punto si possono fare tre 
cose: 

1) premere il tasto Return per terminare 
la routine di cambio e tornare alle 
quattro opzioni; 

2) scrivere un nuovo valore (in esadeci- 
male) per rimpiazzare il valore corren 
te (in tal caso verrà stampato il conte- 
nuto del byte successivo); 

3) premere il tasto della virgola per la- 
sciare il byte immutato. 

Se si commette un errore, basterà pre- 
mere Return e scegliere nuovamente 


la funzione di cambio (infatti il cambia- 
mento non è permanente fino a quel 
punto). 

Quando si è soddisfatti dei cambiamen- 
ti, basterà scegliere l'opzione "riscrive" 
premendo il tasto V. Facendo ciò, il con- 
tenuto del buffer è completamente river- 
sato nel dischetto vero e proprio e il 
cambiamento rimane permanente. 
L'ultima opzione, "fine", permette di usci- 
re dal programma. 

Chi non possedesse la copia del pro- 
gramma, allegata su cassetta alla rivi- 
sta, può copiarlo dalla rivista stessa, 
stando però molto attento a non com- 
mettere errori di battitura, poiché il pro- 
gramma contiene molte istruzioni dirette 
al dischetto; un piccolo errore potrebbe 
compromettere l’incolumità dei program- 
mi contenuti nel dischetto presente nel 
drive mentre il programma viene ese- 
guito. 

Gli utilizzi di Disk handler sono infiniti; 
può servire per rimettere in sesto direc- 
tory poco chiare, per correggere errori 
in alcuni file, recuperare programmi can- 
cellati mediante il comando scratch, ec- 
cetera. 

Una piccola qota: questo programma 
non è un' utility per principianti. Se chi lo 
utilizza non ha una buona conoscenza 
del drive, del computer e di come mani- 
polare i dati in un dischetto, potrebbe 
compromettere gravemente il contenu- 
to di un dischetto. 





210 

50 GOSUBIOOOO : rem 

214 


100 

REM* **************************** 


220 


: rem 

55 


110 

REM*VISUALIZZA TRACCE E SETTORI* 




: rem 

253 

240 

120 

REM* DI UN DISCO SULLO SCHERMO * 


251 


: rem 

13 

253 

130 

REM* O SULLA STAMPANTE C= * 




: rem 

201 


140 

REM***************************** 


254 


: rem 

59 

255 

150 

PRINT" {CLR}{ 2 GIU ' } [< 40 P>] " 




: rem 

116 

256 

160 

PRINTTAB(IO) "DEVO VISUALIZZARE SU 

. f* 



: rem 

170 

260 

165 

PRINT" [< 40 Y>] " : : rem 

63 

265 

170 

rem****************************** 


270 


: rem 

104 

280 

180 

REM* SETTA LE VARIABILI UTILI * 




: rem 

253 

290 

190 

rem****************************** 




: rem 

106 

300 

200 

SP$=" " :NL$=CHR$ (0) :HX$="0123456789AB 



CDEF" : rem 17 8 

FS$="" :FORI=64 TO 95 : FS$=FS$+" {RVS ) " + 
CHR$ ( I ) +” { OFF ) ” : NEXT I : rem 238 

SS$="{ 2 SPAZI } ” : FOR 1=192 TO 223:SS$ 
=SS$+" {RVS}"+CHR$ (1)+” {OFF}” :NEXT I 

:rem 113 

DIM A$(15),NB(2) : rem 203 

D$="0” : rem 177 

PRINT” { 7 SPAZI} {RVS} S {OFF }CHERMO 
{GIU 1 } { 8 SIN } 0 {GIU' } {SIN} {RVS}P 
{OFF } RINTER" : rem 222 

GETJJ$ : IF JJ$=”” THEN254 : rem 255 

IF JJ$=”S”THENPRINT” { 8 SPAZI} {GIU 1 } 
{RVS} SCHERMO {OFF}" : rem 125 

IF JJ$="P ,, THENPRINT" { 8 SPAZI} {GIU 1 } 


{ RVS } PRINTER { OFF } " 

: rem 

142 

OPEN15, 8, 15, "I"+D$ :GOSUB 650 

: rem 

199 

OPEN4, 4 

: rem 

99 

OPEN 2, 8,2, "#" :GOSUB 650 

: rem 

167 

REM* ***************************** 



: rem 

106 

REM* CARICA NEL BUFFER TRACCIA &* 



: rem 

44 

REM* SETTORE DAL DISCHETTO. 

* 



: rem 

151 
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310 REM* ***************************** 

:rem 100 

320 INPUT" {GIU * } { 2 DES } TRACCIA, SETTORE" 
; T, S : rem 1 1 

330 IF T=0 OR T>35 THEN PRINT#15, "I"D$ : CL 
OSE2 : CLOSE4 : CLOSE15 : PRINT"END" : END 

:rem 182 

340 IF JJ$="S"THENGOSUB7 8 0 : rem 0 

341 IF JJ$="P" THEN PRINT#4 : PRINT#4 , "TRAC 
CIA"T" SETTORE"S :PRINT#4 : rem 119 

350 PRINT#15, "U1 :2, "D$;T; S :GOSUB650 

:rem 22 

3 60 REM* ***************************** 

: rem 105 

370 REM* LEGGE IL BYTE 0 DEL BUFFER. * 

: rem 23 6 

390 REM****************************** 

:rem 108 

400 PRINT#15 , "B-P : 2 , 1" : rem 162 

410 PRINT#15,"M-R"CHR$(0)CHR$(5) : rem 240 
420 GET#15,A$(0) : IFA$ ( 0 ) =" "THENA$ ( 0 ) =NL$ 

: rem 8 1 

428 IF JJ$="S"THEN430 : rem 127 

430 IF JJ$="P"THEN4 60 : rem 120 

431 REM******************************** 

: rem 188 

432 REM* LEGGE E VISUALIZZA SU SCHERMO* 

: rem 6 9 

433 REM* IL CONTENUTO DEL BUFFER * 

: rem 181 

434 REM******************************** 

:rem 191 

436 K=1 :NB (1) =ASC (A$ (0) ) : rem 237 

438 K=0 : FORJ=0TO63 : IFJ=160RJ=320RJ=48THEN 
GOSUB710 : IFZ$="N"THENJ=80 : G0T0458 

:rem 162 

439 PRINT# 15, "B-P : 2"+STR$ ( J*4) : rem 146 

440 FOR I=K TO 3 : rem 38 

442 GET#2, A$ (I) : IF A$(I)="" THEN A$(I)=NL 

$ : rem 108 

444 IF K=1 AND I<2 THEN NB (2 ) =ASC (A$ ( I ) ) 

: rem 20 

446 NEXT I : K=0 : rem 24 

448 A$=" " : B$=" : " : N=J*4 : GOSUB 790:A$=A$+": 

" : rem 146 

450 FOR 1=0 TO 3 :N=ASC (A$ (I) ) :GOSUB 790 




: rem 

82 

452 

C$=A$ (I) : GOSUB 850:B$=B$+C$ 

: rem 

106 

454 

NEXT I : IF JJ$="S" THEN PRINTA$B$ 




: rem 

1 

458 

NEXT J : IF J< 8 OTHENGOSUB7 1 0 

: rem 

40 

459 

G0T0571 

: rem 

120 

460 

REM ****************************** 




: rem 

106 

462 

REM*LEGGE E STAMPA SU CARTA. 

★ 




: rem 

132 

464 

REM* ***************************** 




: rem 

110 

466 

K=1 : NB ( 1 ) =ASC ( A$ (0) ) 

: rem 

240 

468 

FOR J=0 TO 15 

: rem 

73 

470 

FOR I=K TO 15 

: rem 

92 

472 

GET#2, A$ (I) : IF A$(I)="" THEN 

A$(I) 

=NL 


$ 

: rem 

111 


474 IF K=1 AND I<2 THEN NB (2) =ASC (A$ (I) ) 


: rem 23 


NEXT I : K=0 : rem 27 

A$=" " : B$=" : " : N= J* 1 6 : GOSUB 7 9 0 : A$=A$ + " 


. •» 

: rem 

200 

FOR 1=0 TO 15 :N=ASC (A$ (I) ): GOSUB 790: 

IF Z$="N"THEN J=40 :GOTO 571 

: rem 

200 

C$=A$ (I) : GOSUB 850:B$=B$+C$ 

: rem 

109 

NEXT I 

: rem 

40 

IF JJ$="P" THEN PRINT#4, A$B$ 

: rem 

196 

NEXT J :G0T0571 

: rem 

61 

REM****************************** 



: rem 

109 

REM* CONTINUA O FINISCE 

* 



: rem 

135 

REM* ***************************** 



: rem 

111 

REM 

: rem 

133 

PRINT" {CLR} CONTINUI (N)"," { 

2 SPAZI} 

O FINISCI (F) 

: rem 

66 

GET Z$ : IF Z$="" THEN590 

: rem 

145 

IF Z$="S" THEN T=NB(1) :S=NB(2) :G0T033 

0 

: rem 

47 

IF Z$="N" THEN 320 

: rem 

55 

IFZ$="F"THEN9999 

: rem 

131 

GOTO 590 

: rem 

111 

rem************************* 

***** 



: rem 

105 

REM* SUBROUTINES 

* 



: rem 

53 

REM* ***************************** 



: rem 

107 

REM* ROUTINE DI ERRORE 

★ 



: rem 

86 

REM* ***************************** 



: rem 

109 

INPUT#15, EN, EM$, ET, ES : IF EN= 

0 THEN RE 

TURN 

: rem 

185 

PRINT " { RVS } ERRORE { OFF } "EN ; EM$ ; ET ; : 

ES 


: rem 

14 

END 

: rem 

110 

REM* ***************************** 



: rem 

104 

REM* OPZIONI DISPONIBILI 

* 



: rem 

47 

REM* ***************************** 



: rem 

106 


PRINT" { 2 GIU'H 4 DESJCONTINUI (S/N) " 
, " {DES } { 3 SPAZI }CAMBI{ 3 SPAZI) (C)", 


" { 4 SPAZI } RISCRIVI ( V 

) " , : rem 

183 

PRINT" { 4 SPAZI} FINE { 4 

SPAZI) (F) 

ii 


: rem 

38 

GETZ$ : IFZ$=" "THEN750 

: rem 

141 

IFZ$="C"THEN950 


: 

REM CAMBIA I DATI NEL 

BUFFER 



: rem 

254 

IFZ$="N"THENRETURN 


: 

REM NON CONTINUA 

: rem 

242 

IFZ$="V" THEN1100 


: 

REM RISCRIVE BLOCCO 

: rem 

174 

IFZ$="F"THEN9999 


: 

REM FINE 

: rem 

203 

IFZ$O"S"THEN750 


: 

REM OPZIONE NON VALIDA 

: rem 

101 

PRINT" {CLR} {RVS} TRACCIA 

" ; T ; " { S IN } 

SET 


476 

478 

480 

482 

484 

486 

488 

571 

572 

573 

575 

580 

590 

600 

610 

615 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

741 

750 

755 

760 

765 

767 

770 

780 
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TORE " S " { OFF } " : RETURN : rem 32 

7 90 REM****************************** 

: rem 112 

800 REM*STAMPA DI UN BYTE IN ESADEC.* 

: rem 100 

810 REM****************************** 

: rem 105 

820 A1=INT (N/16) :A$=A$+MID$ (HX$, Al+1, 1) 

:rem 63 

830 A2=INT (N-16*A1) :A$=A$+MID$ (HX$, A2+1, 1 
) :rem 220 

840 A$=A$+SP$: RETURN : rem 175 

850 REM****************************** 

:rem 109 

860 REM* STAMPA BYTE IN CARATTERE * 

: rem 2 

870 REM* FORMA ASCII * 

:rem 181 

880 REM* ***************************** 

:rem 112 

890 IF ASC (C$) <32 THEN C$=" RETURN 

: rem 145 

910 IF ASC (C$) <128 OR ASC (C$) >159 THEN RE 
TURN : rem 171 

920 C$=MID$ (SS$, 3* (ASC (C$) -127) ,3) : RETURN 

: rem 1 

950 REM************************* : rem 156 

951 REM* * : rem 215 

952 REM*CAMBIA I DATI NEL DISCO*: rem 49 

953 REM* * : rem 217 

954 rem************************* : rem 160 

955 Z9$=" " : rem 219 

960 PRINT" {GIU' }DIGITA IL PUNTO D'INIZIO 

(0-FF) " : INPUTCS$ : rem 89 

961 FORZ=OTOLEN (HX$) : IFMID$ (HX$, Z+l, 1) =LE 

FT$ (CS$, 1) THENTX=Z*16 : rem 247 

962 IFMID$ (HX$, Z+l, 1) =RIGHT$ (CS$, 1) THENTY 

=Z :rem 60 

963 NEXT : CS=TY+TX : rem 114 

970 PRINT#15, "B-P : 2", CSTART 

: REM POSIZIONE DI PARTENZA: rem 30 


990 GET#2, A$ (0) 

: rem 

233 

995 IFA$ (0) =""THENA$ (0) =NL$ 

: rem 

173 

1000 

N=ASC(A$ (0) ) 

: rem 

90 

1010 

A$="" :GOSUB7 90 :GOSUB2000 : PRINT"- 

»• . 
r 


: REM VISUALIZZA IN ESADECIMALE IL BY 


TE 

: rem 

142 

1015 

N1=0 

: rem 

179 

1017 

FORJ1=1TOOSTEP-1 

: rem 

6 

1020 

GETZ$ : IFZ$=" "THEN1020 


: 


REM PRENDE DUE CARATTERI 

: rem 

52 

1022 

IFZ$=" , "THENN1=N : Jl=-1 :GOTO1040 



: REM INTERPRETA IL TASTO 

DI VIRGOL 


A 

: rem 

29 

1024 

IFZ$=CHR$ (13) THENJ1=-1 :GOTO1040 



: REM INTERPRETA IL TASTO 

RETURN 




: rem 

96 

1025 

REM CONVERTE IL VALORE ESADEC. IN EQ 


UIVALENTE DECIMALE 

: rem 

81 

1030 

F0RI=1T016 : IFZ$=MID$ (HX$, I 

, 1) THENN1= 


N1+ (1-1) * (16 A J1) 

: rem 

29 

1032 

NEXTI 

: rem 

78 

1040 

NEXTJ1 : IFZ$=CHR$ (13) THENPRINTZS : 

PRIN 


T#15, "B-P :2",CS :PRINT#2, Z9$; :GOTO740 



:rem 232 

1041 REM CON IL TASTO RETURN CAMBIA CONTE 
NUTO DEL BUFFER . : rem 117 

1045 N=N1 :A$="" :GOSUB7 90 :GOSUB2 000 : PRINT" 



»• . 
r r 

: rem 

60 

1050 

REM 

: rem 

170 

1052 

Z9$=Z9$+CHR$ (N) : GOT09 90 

: rem 

83 

1100 

REM* ********************* 

: rem 

66 

1101 

REM* * 

: rem 

251 

1102 

REM* RISCRIVE IL BLOCCO * 

: rem 

170 

1103 

REM* * 

: rem 

253 

1105 

REM* ********************* 

: rem 

71 

1110 

PRINT#15,"U2:2,"D$;T;S:GOSUB650 

: rem 

66 

1120 

PRINT" {CLR}TRACCIA ";T;" SETTORE 

" ;S 


: PRINT"SONO STATI RISCRITTI 

NEL 

DISC 


HETTO" 

: rem 

243 

1130 

GOTO740 

: rem 

153 

2000 

PRINTLEFTS (A$,2) ; : RETURN 

: rem 

7 

9999 

CLOSE2 :CLOSE15 :CLOSE4 

: rem 

134 


10000 PRINT" { CLR } " : COLOR4 ,2,3: COLORO ,2,6 

: rem 168 

10010 PRINT" {BLK} {RVS}{ 12 SPAZI}" 

:rem 101 

10020 PRINT" (BLK) {RVS} {PUR} [<+>] 

{ 2 SPAZI} {BLK} { 8 SPAZI}" : rem 56 

10030 PRINT" {BLK} {RVS} {PUR} { 3 SPAZI} 
{BLK} { 8 SPAZI} {OFF} {RED} {RVS} 

[<*>] [<K>] {OFF} [<K>] {RVS} [<@>] 

[<K>] { 1 SH £ } {OFF } { 1 SH £} 

: rem 3 1 

10040 PRINT" {BLK} {RVS}{ 4 SPAZI} { 1 SH U 
{ 2 SH *} { 1 SH 1} { 4 SPAZI} {OFF} 
{RED} {RVS} [<M>] [<K>] {OFF} [<K>] 

{RVS } { 2 SPAZI} [<K>] [<*>]" 

: rem 8 3 

10050 PRINT" {BLK} {RVS}{ 4 SPAZI} { 1 SH - 
{ 1 SH U){ 1 SH 1} { 1 SH -} 

{ 4 SPAZI} {OFF} {RED} {RVS} 

{ 2 SPAZI} [<K>] {OFF} [<K>] {RVS} [<T>] 
[<K>] {OFF} [<*>] {RVS} " : rem 46 

10060 PRINT" {BLK} {RVS}{ 4 SPAZI} { 1 SH - 
{ 1 SH J){ 1 SH K)( 1 SH -} 

{ 4 SPAZI} {OFF}" : rem 75 

10070 PRINT" {BLK} {RVS}{ 4 SPAZI }{ 1 SH J 
{ 2 SH *} { 1 SH K} { 4 SPAZI} {OFF}" 

: rem 1 8 

10080 PRINT" {BLK} {RVS}{ 5 SPAZI }{ 1 SH U 
{ 1 SH I}{ 5 SPAZI} {OFF} [<1>] 

{ 8 SPAZI} {RVS} [<K>] { 1 SH -}{OFF) 
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Disk handler 


100 REM***************************** 

:rem 55 

110 REM*VISUALIZZA TRACCE E SETTORI* 

:rem 253 

120 REM* DI UN DISCO SULLO SCHERMO * 

:rem 13 

130 REM* 0 SULLA STAMPANTE C= * 

: rem 201 

140 REM***************************** 

: rem 5 9 

150 PRINT" {CLR} { 2 GIU'H 22 SH R}" 

:rem 40 

160 PRINT"DEVO VISUALIZZARE SU : " 

:rem 33 

165 PRINT" { 22 SH E}": :rem 149 

170 REM****************************** 

:rem 104 

180 REM* SETTA LE VARIABILI UTILI * 

:rem 253 

190 rem****************************** 

:rem 106 

200 SP$=" " :NL$=CHR$(0) :HX$="0123456789AB 
CDEF" : rem 178 

210 FS$="" :FORI=64 TO 95 :FS$=FS$+" {RVS } "+ 
CHR$ ( I ) +" { OFF } " : NEXT I :rem 238 

220 SS$="{ 2 SPAZI}" :FOR 1=192 TO 223:SS$ 
=S S $ + " { RVS } " +CHR$ ( I ) + " { OFF } " : NEXT I 

:rem 113 

240 DIM A$(15) ,NB(2) :rem 203 

251 D$="0" : rem 177 

253 PRINT" { 7 SPAZI } {RVS } S {OFF }CHERMO 

{GIU'H 8 SIN}0 {GIU' } {SIN} {RVS}P 
{OFF}RINTER" : rem 222 

254 GETJJ$ : IF JJ$="" THEN254 :rem 255 

255 IF <JJ$="S"THENPRINT" { 7 SPAZI} {GIU'} 

{RVS} SCHERMO {OFF}" :rem 125 

256 IF JJ$="P"THENPRINT"{ 7 SPAZI} {GIU'} 

{RVS} PRINTER {OFF}" : rem 142 

260 OPEN15, 8/ 15, "I"+D$ :GOSUB 650:rem 199 

265 OPEN4, 4 :rem 99 

270 OPEN 2,8,2,"#":GOSUB 650 :rem 167 

280 REM****************************** 

:rem 106 

290 REM* CARICA NEL BUFFER TRACCIA &* 

:rem .44 

300 REM* SETTORE DAL DISCHETTO. * 

:rem 151 

310 rem****************************** 

:rem 100 

320 INPUT" {GIU' } TRACCI A, SETTORE";T,S 

: rem 209 

330 IF T=0 OR T>35 THEN PRINTI15, "I"D$ :CL 
OSE2 : CLOSE4 : CLOSE15 : PRINT "END" : END 

:rem 182 

340 IFJJ$="S"THENGOSUB780 :rem 0 

341 IF JJ$="P" THEN PRINT#4 :PRINT#4, "TRAC 

CIA"T" SETTORE"S :PRINT#4 :rem 119 

350 PRINT#15, "U1 :2, "D$;T;S :GOSUB650 

: rem 22 

360 REM****************************** 


:rem 105 

370 REM*LEGGE IL BYTE 0 DEL BUFFER. * 

:rem 236 

390 REM****************************** 

:rem 108 

400 PRINT#15, "B-P :2, 1" : rem 162 

410 PRINT#15, "M-R"CHR$ (0) CHR$ (5) : rem 240 
420 GET#15,A$(0) : IFA$ (0) =""THENA$ (0) =NL$ 

: rem 8 1 

428 IF JJ$="S"THEN430 : rem 127 

430 IF JJ$="P"THEN460 : rem 120 

431 REM******************************** 

:rem 188 

432 REM* LEGGE E VISUALIZZA SU SCHERMO* 

: rem 6 9 

433 REM* IL CONTENUTO DEL BUFFER * 

: rem 181 

434 rem******************************** 

: rem 191 

436 K=1 :NB (1) =ASC (A$ (0) ) :rem 237 

438 K=0 :FORJ=0TO63 : IFJ=160RJ=320RJ=48THEN 
GOSUB710 : IFZ$="N"THENJ=80 :G0T0458 

:rem 162 

439 PRINT#15, "B-P :2"+STR$ (J*4) : rem 146 

440 FOR I=K TO 3 :rem 38 

442 GET#2,A$ (I) : IF A$(I)="" THEN A$(I)=NL 

$ : rem 108 

444 IF K=1 AND I<2 THEN NB (2 ) =ASC (A$ ( I) ) 

: rem 2 0 

446 NEXT I :K=0 :rem 24 

448 A$=" " :B$=" : " :N=J*4 :GOSUB 790:A$=A$+": 

" :rem 146 

450 FOR 1=0 TO 3 :N=ASC (A$ (I) ) :GOSUB 790 




: rem 

82 

452 

C$=A$(I) :GOSUB 850:B$=B$+C$ 

: rem 

106 

454 

NEXT I : IF JJ$="S" THEN PRINTA$B$ 




: rem 

1 

458 

NEXTJ : IFJ<80THENGOSUB710 

: rem 

40 

459 

G0T0571 

: rem 

120 

460 

REM****************************** 




: rem 

106 

462 

REM* LEGGE E STAMPA SU CARTA. 

* 




: rem 

132 

464 

REM****************************** 




: rem 

110 

466 

K=1 :NB (1) =ASC (A$ (0) ) 

: rem 

240 

468 

FOR J=0 TO 15 

: rem 

73 

470 

FOR I=K TO 15 

: rem 

92 

472 

GET#2, A$ (I) : IF A$(I)="" THEN 

A$(I) 

=NL 


$ 

: rem 

111 

474 

IF K=1 AND I<2 THEN NB (2) =ASC (A$ (I) ) 



: rem 

23 

476 

NEXT I :K=0 

: rem 

27 

478 

A$=" " : B$=" : " : N= J* 1 6 : GOSUB 7 90 : A$=A$+" 


: " 

: rem 

200 

480 

FOR 1=0 TO 15 :N=ASC (A$ (I) ) : GOSUB 790: 


IF Z$="N"THEN J=40 :GOTO 571 

: rem 

200 

482 

C$=A$(I) : GOSUB 850:B$=B$+C$ 

: rem 

109 

484 

NEXT I 

: rem 

40 

486 

IF JJ$="P" THEN PRINT#4,A$B$ 

i : rem 

196 

488 

NEXT J :G0T0571 

: rem 

61 

571 

REM* ***************************** 




: rem 

109 

572 

REM* CONTINUA O FINISCE 

* 
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: rem 

135 

573 

REM****************************** 




: rem 

111 

575 

REM 

: rem 

133 

580 

PRINT” { CLR } CONT INU I (N) " 

, "O FINISCI (F 


) 

: rem 

56 

590 

GET Z$ : IF Z$=’”' THEN590 

: rem 

145 

600 

IF Z$="S” THEN T=NB ( 1 ) :S 

=NB ( 2 ) :G0T033 


0 

: rem 

47 

610 

IF Z$="N" THEN 320 

: rem 

55 

615 

IFZ$="F"THEN9999 

: rem 

131 

620 

GOTO 590 

: rem 

111 

630 

REM* ***************************** 




: rem 

105 

640 

REM* SUBROUTINES 

★ 




: rem 

53 

650 

REM* ***************************** 




: rem 

107 

660 

REM* ROUTINE DI ERRORE 

* 




: rem 

86 

670 

rem* ***************************** 




: rem 

109 

680 

INPUT#15, EN, EM$, ET, ES : IF 

EN=0 THEN RE 


TURN 

: rem 

185 

690 

PRINT" { RVS } ERRORE { OFF } "EN; EM$ ; ET ; 

ES 



: rem 

14 

700 

END 

: rem 

110 

710 

REM* ***************************** 




: rem 

104 

720 

REM* OPZIONI DISPONIBILI * 




: rem 

47 

730 

rem****************************** 




: rem 

106 

740 

PRINT" {GIU' } { 4 DES}CONTINUI (S/N) 

ii ii 

/ 


(DESH 3 SPAZI }CAMBI{ 3 

SPAZI} (C) 

ti ii 

r 


{ 4 SPAZ 1} RI SCRIVI ( V )" 

, : rem 

166 

741 

PRINT" { 4 SPAZI )FINE{ 4 

SPAZI} (F) 

ii 



: rem 

38 

750 

GETZ$ : IFZ$=""THEN750 

: rem 

141 

755 

IFZ$="C"THEN950 


: 


REM CAMBIA I DATI NEL BUFFER 




: rem 

254 

760 

IFZ$="N"THENRETURN 


: 


REM NON CONTINUA 

: rem 

242 

765 

IFZ$="V" THEN1100 


: 


REM RISCRIVE BLOCCO 

: rem 

174 

767 

IFZ$="F"THEN9999 


: 


REM FINE 

: rem 

203 

770 

IFZ$O"S"THEN750 


: 


REM OPZIONE NON VALIDA 

: rem 

101 

780 

PRINT" (CLR) { RVS } TRACCIA" 

;T;" {SIN} 

SET 


TORE " S " { OFF } " : RETURN 

: rem 

32 


7 90 REM* ***************************** 

: rem 112 


800 REM* STAMPA DI UN BYTE IN ESADEC.* 

:rem 100 


810 REM****************************** 


:rem 105 

820 A1=INT (N/ 1 6 ) : A$=A$+MID$ (HX$, Al + 1, 1) 

:rem 63 

830 A2=INT (N-16*A1) : A$=A$+MID$ (HX$, A2 + 1, 1 
) : rem 220 

840 A$=A$+SP$ : RETURN : rem 175 

850 REM****************************** 

: rem 10 9 

860 REM* STAMPA BYTE IN CARATTERE * 


870 REM* FORMA ASCII 


: rem 2 
★ 


:rem 181 

880 REM****************************** 

:rem 112 

890 IF ASC (C$) <32 THEN C$=" " : RETURN 

:rem 145 

910 IF ASC (C$) <128 OR ASC (C$) >159 THEN RE 
TURN : rem 171 

920 C$=MID$ (SS$, 3* (ASC (C$) -127 ) ,3) : RETURN 


950 

: rem 

rem************************* : rem 

1 

156 

951 

REM* 

* : rem 

215 

952 

REM* CAMBI A I DATI NEL DISCO*: rem 

49 

953 

REM* 

* : rem 

217 

954 

REM* ************************; rem 

160 

955 

Z9$="" : rem 

219 
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960 PRINT" {GIU' JDIGITA IL PUNTO 

{ 7 SPAZI }D' INIZIO (0-FF) " : INPUTCSS 

: rem 8 9 

961 FORZ=OTOLEN (HX$) : IFMID$ (HX$, Z+l, 1) =LE 


FT$ (CS$/ 1) THENTX=Z*16 : rem 247 

962 IFMID$ (HX$, Z+l, 1) =RIGHT$ (CS$, 1) THENTY 



=Z 

: rem 

60 

963 

NEXT : CS=TY+TX 

: rem 

114 

970 

PRINT # 1 5 , " B-P : 2 " , CS T ART 




: REM POSIZIONE DI PARTENZA: rem 

30 

990 

GET#2,A$ (0) 

: rem 

233 

995 

IFA$ (0) =" "THENA$ (0) =NL$ 

: rem 

173 

1000 

N=ASC(A$ (0) ) 

: rem 

90 

1010 

A$=" " : GOSUB7 9 0 : GOSUB2 000: 

PRINT"- 

t* . 

» 


: REM VISUALIZZA IN ESADECIMALE IL BY 


TE 

: rem 

142 

1015 

N1=0 

: rem 

179 

1017 

FORJ1=1TOOSTEP-1 

: rem 

6 

1020 

GETZ$ : IFZ$=""THEN1020 


: 


REM PRENDE DUE CARATTERI 

: rem 

52 

1022 

IFZ$=" , "THENN1=N : Jl=-1 : GOTOIO 40 



: REM INTERPRETA IL TASTO DI VIRGOL 


A : rem 2 9 

1024 IFZ$=CHR$ (13) THENJ1=-1 :GOTO1040 

: REM INTERPRETA IL TASTO RETURN 

: rem 9 6 

1025 REM CONVERTE IL VALORE ESADEC. IN EQ 


UIVALENTE DECIMALE : rem 81 

1030 F0RI=1T016 : IFZ$=MID$ (HX$, I, 1) THENN1= 



N1 + ( I — 1 ) * (16 A J1) 

: rem 

29 

1032 

NEXTI 

: rem 

78 

1040 

NEXTJl : IFZ$=CHR$ (13) THENPRINTZ$ : 

PRIN 


T#15, "B-P : 2", CS :PRINT#2, Z9$ 

; :GOTO740 



: rem 

232 

1041 

REM CON IL TASTO RETURN CAMBIA CONTE 


NUTO DEL BUFFER 

: rem 

117 

1045 

N=N1 : A$=" " : GOSUB7 90 : GOSUB2 0 00 : PRINT" 


»l • 

r / 

: rem 

60 

1050 

REM 

: rem 

170 

1052 

Z9$=Z9$+CHR$ (N) : GOTO990 

: rem 

83 

1100 

REM* ********************* 

: rem 

66 

1101 

REM* * 

: rem 

251 

1102 

REM* RISCRIVE IL BLOCCO * 

: rem 

170 

1103 

REM* * 

: rem 

253 

1105 

REM* ********************* 

: rem 

71 

1110 

PRINT#15, "U2 : 2 , "D$ ; T; S : GOSUB650 




: rem 

66 

1120 

PRINT" {CLR} TRACCIA" ;T; " SETTORE" 

; S : P 


RINT"SONO STATI RISCRITTI { 

2 SPAZI} 


NEL DISCHETTO" 

: rem 

243 

1130 

GOTO740 

: rem 

153 

2000 

PRINTLEFT$ (A$, 2 ) ; : RETURN 

: rem 

7 

9999 

CLOSE2 :CLOSE15 :CLOSE4 

: rem 

134 


[<K>] {RVS } [<D>] [<F>] [<K>] {OFF} 

[< 2 K>] {RVS } [<*>] [<K>] {OFF} [<K>] 

{RVS} [<@>] [<K>] - " : rem 23 

10090 PRINT" {BLK} {RVS}{ 5 SPAZI }{ 2 SH - 
{ 5 SPAZI} {OFF} [<1>] { 8 SPAZI} {RVS} 
[<K>] {OFF} [<K>] {RVS} { 2 SPAZI} 

[<K>] {OFF} [<B>] [<K>] {RVS} [<M>] 

[<K>] {OFF} [<K>] {RVS}{ 2 SPAZI} 

[<K>] [<*>]" : rem 228 

10100 PRINT"{BLK} {RVS}{ 5 SPAZI} { 1 SH J 
{ 1 SH K}{ 5 SPAZI} {OFF} [<1>] 

{ 8 SPAZI} {RVS} [<K>] { 1 SH -}{OFF} 
[<K>] {RVS} [<M>] [<G>] [< 2 K>] {OFF} 
[<K>] {RVS } { 2 SPAZI} [<K>] {OFF} 

[<K>] {RVS } [<T>] [<K>] {OFF} [<*>] 

{RVS} " : rem 98 

10110 PRINT : rem 128 

10120 PRINT" { 5 SPAZI} {GRN} [<D>] [<F>] 

[<7>] {RVS } { 1 SH £}[<*>]" 

: rem 12 6 

10130 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

{OFF} [<K>] [<7>] {RVS} [<K>] {OFF} 

[<K>] " :rem 74 

10140 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

{OFF} [<K>] [<7>] {RVS} [<K>] {OFF} 

[<K>] { 9 SPAZI} [<2>] { 1 SH U} 

{ 8 SH *} { 1 SH I}" : rem 12 6 

10150 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

{OFF} [<K>] [<7>] {RVS} [<K>] {OFF} 

[<K>] { 9 SPAZI} [<2>]{ 1 SH -} [<7>] 
[<D>] [< 6 I>] [<F>] [<2>] { 1 SH -}" 

:rem 253 

10160 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

{OFF} [<K>] [<7>] {RVS} [<K>] [<C>] 

{OFF } [< 6 I>] [<F>] { 2 SPAZI} [<2>] 

{ 1 SH -} [<7>] {RVS} [<K>] INPUT, {OFF} 
[<K>] [<2>] { 1 SH -}" : rem 15 

10170 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

{OFF} [<K>] [<7>] [<C>] {RVS } [< 7 I>] 

{OFF } [<V>] { 2 SPAZI} [<2>]{ 1 SH -} 
[<7>] {RVS} [<K>] &... {OFF} [<K>] 

[<2>] { 1 SH -}" : rem 8 

10180 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

{OFF } [<K>] { 12 SPAZI} [<2>] { 1 SH -} 
[<7>] {RVS} [<K>] OUTPUT {OFF} [<K>] 

[<2>] { 1 SH -}" : rem 36 

10190 PRINT" { 5 SPAZI} {GRN} {RVS} [<K>] 

[<C>] {OFF } [< 9 I>] {RVS} [<*>] {OFF} 

{ 2 SPAZI) [<2>]{ 1 SH — } t<7>] [<C>] 
{RVS } [< 6 I>] {OFF} [<V>] [<2>] 

{ 1 SH -}" : rem 136 

10200 PRINT" { 5 SPAZI} {GRN} [<C>] {RVS} 

[< 10 I>] {OFF} { 1 SH £} 

{ 2 SPAZI} [<2>]{ 1 SH J) [<R>] 

{ 6 SH * } [<R>] { 1 SH K}" : rem 77 

10210 PRINT" { 19 SPAZI} {RVS} { 1 SH £} 

[< 8 £>] [<*>] " : rem 159 

10220 PRINT" { 18 SPAZI} {RVS} { 1 SH £ } 

[< 10 +>][<*>]" : rem 220 

10230 PRINT” { 18 SPAZI } {RVS } [< 12 T>] ” 

:rem 125 

13000 FORI=1T010000 :NEXT: RETURN : rem 185 


1 8 SUPERCOMMOOORE 16 VIC20 PLUS/4 3/86 


Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi per C64 e C128 di interesse generale, chiari 
ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo scopo di rendere 
più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si accresceranno le 
probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 il titolo dell’articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed.. ./Brambilla/2, 
il testo dell’articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
dell’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )”, “TAB( x )”, SPC( x 
)”, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l’istruzione 
“FORI = 1T05.PRINT :NEXT”. è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all’intemo dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gli articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

verrà data comunicazione scritta solo in 
caso di accettazione del lavoro. Il materia- 
le non pubblicato non verrà restituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 

Inviate idee e programmi a: 

SUPERCOMMODORE 
Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 

La Redazione 
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PRIMI PASSI IN BASIC 

Con semplicità, humor e precisio- 
ne una semplice guida al BASIC 
per principianti. 

COD. 007D L. 9.000 

CONOSCERE IL PERSONAL 


La biblioteca 
per ragazzi 
firmata Jackson 


Con un linguaggio semplice, spiri- 
toso, ma rigoroso, imparerete co- 
me funziona un Personal Compu- 
ter, che cosa può fare e i primi ele- 
menti per.poterlo utilizzare. 

COD. 008D L. 9.000 

GIOCHI SPAZIALI 

Chi ha detto che i computer serva- 
no solo per cose serie? Oltretutto, 
divertendosi si può imparare più 
volentieri. 

COD. 01 OD L. 9.000 


DIVERTIRSI CON IL 
PERSONAL 

Contiene programmi per creare 
messaggi lampeggianti, progetta- 
re giochi, creare immagini e per fa- 
re decine d’altre cose. Non è ne- 
cessaria alcuna conoscenza preli- 
minare di programmazione. 

COD. 020D L. 9.000 


TUTTO CIÒ CHE AVRESTE 
VOLUTO SAPERE 
SUL COMPUTER 

Chi ha detto che i bambini non 
possano capire che cos’è e come 
si usa un computer? Ecco qui di- 
mostrato come possono farlo di- 
ventare il loro gioco preferito. 
COD. 01 5D L. 9.000 


BATTAGLIE CON IL 
COMPUTER 

Qui il pacifismo non serve. Si gio- 
ca alla guerra per imparare il BA- 
SIC, quindi ben venga. 

COD. Oli D L. 9.000 

IMPARIAMO 
A PROGRAMMARE 

Leggero come una rivista illustra- 
ta, allegro come un fumetto, preci- 
so come un libro di scuola: un mo- 
do nuovo di imparare a program- 
mare. 

COD. 01 8D L. 9.000 

APPLICAZIONI PRATICHE 
DEL PERSONAL COMPUTER 

Un libro che vi farà scoprire piace- 
volmente che esiste qualcosa di 
diverso dai giochi, più utile e 
ugualmente appassionante, nel 
mondo dei computer. 

COD. 001 D L. 9.000 

INTRODUZIONE AL 
LINGUAGGIO MACCHINA 

Un argomento “difficile” affrontato 
con linguaggio piacevole; prezio- 
se illustrazioni consentono l'im- 
mediata comprensione anche dei 
più complessi aspetti tecnici. 
COD. 002D L. 9.000 


I ROBOT 

Una parola, sconosciuta qualche 
decina di anni fa, che oggi rappre- 
senta una realtà nelle fabbriche. 

COD. 003D L. 9.000 


ritagliare (o fotocopiare) e spedire in busta chiusa a: 
GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini , 12 

CEDOLA DI COMMISSIONE LIBRARIA 


20124 Milano 


mnrui mM .. roum.TC» " VOGLIATE SPEDIRMI 

1 giochi con il compì itpr visti una ■ n c °P ,e 

codice 

Titolo 

Prezzo unitario 

Prezzo totale 

volta tanto, dalla parte del compu- ■ 





ter e non dell’utente: come gioca, 





può vincere. 





COD. 006D L. 9.000 T „, . 

Totale 



LA RIVOLUZIONE 
INFORMATICA 

Come i computer e le nuove tec- 
nologie hanno rivoluzionato il 
mondo della comunicazione. 

COD. 004D L. 9.000 

ENTRIAMO NEL CHIP 

Anche un piccolo “chip” può por- 
tare una rivoluzione. La sua storia 
è affascinante come un racconto. 

COD. 005D L. 9.000 


I 

I 


□ Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo fisso spese di spedizione. 
Condizioni di pagamento con esenzione del contributo spese di spedizione: 


□ Allego assegno della Banca 

N° 

□ Allego fotocopia del versamento sul c/c n. 11666203 a voi intestato 

□ Allego fotocopia di versamento su vaglia postale a voi intestato 

Nome e Cognome 



Via 



Cap 

Città 

Prov. 

Data 

Firma 



Spazio riservato alle Aziende. Si richiede l’emissione di fattura ORDINE 

MINIMO 

Partiva I VA I I I I I I I I I I I I I L 50-00 



o 



di J. Rocke 

trad. e adatt. di S. Albarelli 


Se avete provato a cercare una 
subroutine specifica o un loop 
in un lungo programma BASIC, 
saprete certamente che l'impre- 
sa è ardua e noiosa. Questo arti- 
colo vi insegnerà molti trucchet- 
ti utili per rendere più compren- 
sibili i lunghi listati. 


Un sistema per rendere facilmente com- 
prensibile un listato è quello di utilizzare 
nomi di variabili lunghi come parole, sce- 
gliendoli intelligentemente. 

Il BASIC però rende questa scelta diffi- 
cile e rende impossibile l'utilizzo di mol- 
te parole. 

Avete mai provato a scegliere come va- 
riabili le parole TOP o FN? 

Il BASIC non ve lo permette, perchè nel- 
la prima è inclusa l'istruzione BASIC 
TO, e la seconda è prevista nell'utilizzo 
di funzioni pre-programmate. Ecco un si- 
stema per poter utilizzare nomi di varia- 
bili di questo tipo, senza che il BASIC le 
rifiuti. 


Nomi di variabili illegali 

Per poter utilizzare nomi di variabili che 
contengono istruzioni BASIC basta uti- 
lizzare i caratteri grafici, che sono 
normalmente usati per abbreviare la bat- 
titura di un’istruzione (esempio: P+ Shift 
O corrisponde alla parola POKE). 

Ma vediamo come il BASIC tratta un ca- 
rattere grafico nel mezzo di un nome di 
variabile. 

Provate a battere questo piccolo li- 
stato: 


10 nJumber = 50 
20 print nJumber. 

N.B. I caratteri in minuscolo vanno bat- 
tuti normalmente, quelli in maiuscolo de- 
vono essere "shiftati". 

Ora listate il piccolo programma, e appa- 
rirà: 

10 number = 50 


20 print number 

Bisogna notare che la J shiftata è scom- 
parsa dal listato. Se ora facessimo gira- 
re il programma, vedremmo: 

50 

ready. 

Finora non si è fatto niente di speciale: 


O UYhs>1 fo Cii , 

o Coti*#' - — 
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si sono inseriti dei caratteri grafici nel 
mezzo di nomi di variabili e si è notato 
che il programma girava lo stesso esat- 
tamente. 

Proviamo ora a battere questo primo pro- 
gramma, contenente variabili illegali: 

1 0 topo = 65 
20 bottolo = 90 
30 print bottolo - topo + 1 

Se facciamo girare questo programma, 
otteniamo solo un "syntax error". 

Infatti, tra le parole appare l’istruzione 
BASIC TO, che non può essere utilizza- 
ta nei nomi di variabili (TOpo.botTOIo). 
Essa è riservata all'uso nelle istruzioni 
FOR (FOR j « 1 T05). 

Però, battendo una J shiftata tra la T e 
la O, è possibile utilizzare questi nomi di 
variabili. Perciò proviamo a inserire una 
J shiftata prima di ogni O di ciascun TO 
che incontriamo: 

1 0 tJopo = 65 

20 bottJolo = 90 

30 print bottJolo - tJopo + 1 

Ora, listando il programma, si vedrà: 

1 0 topo * 65 
20 bottolo « 90 

30 print bottolo - topo + 1 

11 programma appare identico a quello ini- 
ziale che non funzionava, ma al suo in- 
terno contiene le J shiftate, anche se 
non si vedono. Provando a farlo gira- 
re, si legge sullo schermo: 

26 

ready. 

Il programma funziona perfettamente, 
pur contenendo dei nomi di variabili ille- 
gali in ogni linea. Ricordate però che la J 
shiftata va inserita sempre prima dell'ul- 
tima lettera dell'istruzione contenuta nel 
nome di variabile. 

Per esempio, se volessimo utilizzare la 
parola SFORZO, al suo interno appare 
l'istruzione FOR, e perciò bisognerà bat- 
terla scrivendo: sfoJrzo e non sfJorzo, 
perchè altrimenti resterebbe ugualmen- 
te l'istruzione OR, che la renderebbe lo 
stesso illegale. Inoltre, bisogna ricordar- 
si che le parole ST, TI e Tl$ sono "nomi 
di variabili riservate" e non "istruzioni 
BASIC" e perciò non possono essere in- 
cluse in nomi di variabili, neppure col me- 
todo sopra descritto. 


Come dividere I listati in blocchi 
e inserire linee bianche 

Oltre a prevenire l'utilizzo di alcune va- 


riabili, il BASIC impedisce all’utente di 
inserire linee bianche in un listato. Per- 
ciò non si può dividere il programma in 
blocchi, separando ed evidenziando 
all'interno di esso cicli FOR-NEXT, IF- 
THEN o particolari subroutine. 

Chi ha avuto occasione di utilizzare il 
Pascal sa bene che è possibile e consi- 
gliabile digitare un programma in questa 
maniera: 

10 fori = 1 to 10 

20 print "ogni istruzione compresa" 

30 print "nel ciclo for viene fatta" 

40 print "avanzare di due spazi" 

50 next i 
60 

70 print "e si lascia una linea bianca" 

80 print "tra un blocco e l'altro...." 

Listando il programma appena battuto si 
legge: 

1 0 fori = 1 to 10 

20 print "ogni istruzione compresa" 

30 print "nel ciclo for viene fatta" 

40 print "avanzare di due spazi" 

50 next i 

70 print "e si lascia una linea bianca" 

80 print "tra un blocco e l'altro...." 

Come si può notare, l'avanzamento del- 
le tre istruzioni "print" alle linee 20-40 e 
la linea 60, che avevamo battuto senza 
alcuna istruzione, sono scomparsi. 

Infatti il BASIC Commodore riallinea tut- 
te le linee in modo da lasciare solo uno 
spazio tra numero di riga e istruzioni e, 
come se non bastasse, cancella le linee 
prive di istruzioni. 

Per poter scrivere il programma nel pri- 
mo modo e far sì che resti immutato si 
può utilizzare la provvidenziale J shifta- 
ta, che anche qui ci torna utile. Battete 
ora il programma con le J shiftate: 

lOJfori = 1 to 10 

20J print "ogni istruzione compresa" 

30J print "nel ciclo for viene fatta" 

40J print "avanzare di due spazi" 
5QJnext i 

Listandolo, esso appare in questo for- 
mato: 

10 fori * 1 to 10 

20 print "ogni istruzione compresa" 

30 print "nel ciclo for viene fatta" 

40 print "avanzare di due spazi" 

50 next i 

ed è proprio identico a come lo voleva- 
mo. 

Per poter inserire delle linee bianche è 
sufficiente battere il numero di linea vo- 
luto seguito da: 


1 J shiftata; 

1 spazio 
1 J shiftata 

Perciò, se ad esempio vogliamo inserire 
nel programma appena battuto una linea 
bianca che abbia come numero '99', ba- 
sterà scrivere: 

99 (sh ift^J) (spazio) (shift-J ) 

Ora, listandolo, il programma apparirà 
così: 

10 fori = 1 to 10 

20 print "ogni istruzione compresa" 

30 print "nel ciclo for viene fatta" 

40 print "avanzare di due spazi" 

50 nexti 
99 


Il prezzo da pagare per avere 
un listato leggibile 

C’è però un prezzo da pagare per avere 
tutto questo: il più ovvio (e anche grave 
per un VIC 20 inespanso) è il grosso 
consumo di memoria causato dai lunghi 
nomi delle variabili; un altro prezzo da 
pagare è il fatto di doversi ricordare di 
battere i caratteri shiftati extra, il che - 
a lungo andare - può provocare nau- 
sea, ma che nel risultato finale può dare 
molte soddisfazioni, grazie alla leggibili- 
tà del listato, altrimenti impossibile da 
raggiungere. 


Come funziona? 

Nel BASIC ci sono routine che listano e 
fanno funzionare i programmi. 

Come avete potuto vedere, è possibile 
far funzionare programmi apparentemen- 
te assurdi e listare programmi contenen- 
ti linee vuote o istruzioni in posizioni di- 
verse rispetto al normale. 

Per spiegare tutto ciò è necessario ana- 
lizzare il funzionamento delle routine del 
BASIC sopra accennate. 


Come mai II BASIC accetta le va- 
riabili illegali? 

C’è una routine del BASIC che chiamere- 
mo "tokenizzante". Normalmente noi 
pensiamo che le parole del BASIC siano 
formate da diverse lettere, come PRINT 
o INPUT, ma la routine che fa funziona- 
re i programmi non le vede in questo 
modo. 

Quando digitiamo una linea e premiamo 
Return, il computer trasforma le istruzio- 
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ni da noi battute con molte lettere 
(esempio PRINT) in un unico numero, 
che occupa un solo byte della memoria 
BASIC. Per fare ciò la routine "tokeniz- 
zante" esamina la linea appena battuta 
carattere per carattere, e se incontra le 
cinque lettere componenti la parola 
PRINT, scrive nella memoria RAM un uni- 
co valore, detto "token H . 

Ma se noi digitiamo un'istruzione che 
ha nel mezzo un carattere estraneo (la 
J shiftata), il computer troverà i primi ca- 
ratteri dell'istruzione, ma poi, incontrato 
il carattere estraneo, darà termine alla ri- 
cerca delle altre lettere dell'istruzione, 
che non verrà quindi "tokenizzata". 

Inoltre la routine "tokenizzante" se in- 
contrerà un uguale (=), interpreterà i ca- 
ratteri appena letti come il nome di una 
variabile. Perciò, dopo che la routine 
non ha riconosciuto nelle lettere incon- 
trate un'istruzione BASIC, e dopo che 
ha trovato l'uguale, le tratta come un no- 


me di variabile, e non come un'istruzio- 
ne, e il gioco è fatto. 


Come mai il BASIC lascia gli spa- 
zi da noi inseriti prima delle 
istruzioni? 

In questo caso entra in gioco una nuova 
routine del BASIC: essa scarta gli spa- 
zi che ci sono dopo il numero di linea e 
prima delle istruzioni ( la chiameremo 
routine "scartante”). 

Quando la routine "scartante" incontra 
dei caratteri, passa però il comando alla 
routine di "tokenizzazione", che non 
scarta più gli spazi. 

Perciò, se noi digitiamo all'inizio della li- 
nea, subito dopo il numero della stessa, 
un carattere estraneo (la J shiftata), la 
routine "scartante" passerà il comando 
alla routine tokenizzante, la quale lasce- 
rà intatti gli spazi che inseriremo dopo il 


carattere estraneo e interpreterà corret- 
tamente le istruzioni che seguono gli 
spazi. 

Come mal II BASIC visualizza le 
linee bianche? 

Per inserire delle linee bianche in un pro- 
gramma è necessario, come abbiamo 
già detto, inserire il numero di linea, una 
J shiftata, uno spazio e un' altra J shif- 
tata. 

Questo è reso necessario dal fatto che 
se avessimo messo un solo carattere 
estraneo, la routine "scartante" avrebbe 
passato il comando alla routine "tokeniz- 
zante", che, non trovando nulla, avreb- 
be cancellato la linea. 

Invece, inserendo due J shiftate divise 
da uno spazio, anche la routine "tokeniz- 
zante" viene tratta in inganno e la linea 
viene accettata. 
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di S. K. Smith 

trad. e adatt. di S. Albarelli 


Con questo programma chiun- 
que possieda un disk drive Com- 
modore potrà finalmente mette- 
re un po' di ordine nel propri di- 
schi, In modo da poter trovare 
velocemente qualsiasi program- 
ma. 

Chi possiede un sistema a floppy disk 
sa certamente che l'utilizzo dei dischet- 
ti come memoria di massa è molto più 
semplice e sicuro dell'utilizzo dei nastri 
magnetici. 

Infatti, in primo luogo i dischetti sono 
più affidabili, più leggeri, più pratici e 
meno ingombranti delle normali casset- 
te a nastro magnetico. 

In secondo luogo i dischetti hanno una li- 
sta sempre aggiornata dei programmi 
che contengono: questa lista è la "dire- 
ctory". 

Per richiamarla dal disco è sufficiente di- 
gitare LOAD "$",8 ed eseguire un list do- 
po il suo caricamento. 

Nella directory sono visualizzati tutti i 
nomi dei file presenti nel dischetto, cor- 
redati dal numero di blocchi. (256 byte) 
che ognuno occupa e dal loro formato 
(PRG*Programma, SEQ=Sequenziale, 
REL-Relativo). 

Molto spesso le directory di alcuni di- 
schi sono molto lunghe, e per trovare in 
esse un dato file bisogna leggere tutti i 
nomi contenuti, con un inutile spreco di 
tempo. 

Questo breve programma, compatibile 
con tutti i modelli Commodore, permette 
di mettere i nomi di qualunque directory 
in ordine alfabetico, rendendo molto più 
facile e veloce la ricerca di qualsiasi pro- 
gramma. 

L'utilizzo di questo programma è molto 
semplice. Per ottenere il risultato voluto 
è necessario: 


1) inserire nel drive il dischetto la cui di - 
rectory deve essere messa in ordine 
alfabetico nel drive; 

2) dare il RUN al programma; 

3) osservare la directory originale del di - 
sco inserito nel drive, per assicurarsi 
che esso sia quello desiderato; 

4) attendere che il computer metta in or- 


dine alfabetico la directory (dopo 
averlo fatto vi chiederà di premere la 
barra spazio); 

5) premere la barra spazio e osservare 

la nuova directory, che, nel frattem 
po, verrà anche riscritta sul disco; 

6) attendere che il programma si fermi; 
solo allora la directory sarà stata 
riscritta sul dischetto. 
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Se dopo aver letto la directory non anco- 
ra ordinata avrete cambiato idea, vi ba- 
sterà estrarre il disco dal drive. Se vole- 
te usufruire di questo programma e non 
siete in possesso della cassetta allega- 


ta alla rivista, dovrete digitarlo con mol- 
ta cautela, perchè esso contiene molte 
istruzioni indirizzate al drive, e se una 
sola di esse venisse digitata in modo er- 
rato, potrebbe compromettere grave- 


mente i successivi caricamenti da quel 
dischetto. 

Il programma può elaborare directory 
con più di 144 nomi. 


Directory sort 

5 GOSUBIOOOO : rem 166 

10 GOSUB340 :GOTO150 : rem 129 

20 PRINT'MGIU' } [<7>] { 1 SH S}TO METTENDO 
I FILE IN ORDINE ALFABETICO" : SK=K1 : L% ( 
Kl) =K1 :R% (1) =NF : rem 5 

30 L1=L% (SK) :R1=R% (SK) :SK=SK-1 : rem 238 

40 L2=L1 :R2=R1 :KE$=NS$ (INT ( (Ll+Rl) /2) ) 

: rem 116 

50 KE$=MID$ (KE$, 31) +MID$ (KE$, 4,M% (INT ( (LI 
+Rl)/2))) : rem 127 

60 IFMID$ (NS$ (L2 ) ,31) +MID$ (NS$ (L2) , 4,M% (L 
2 ) ) <KE$THENL2=L2+K1 : GOTO60 : rem 27 

70 IFKE$<MID$ (NS$ (R2) , 31) +MID$ (NS$ (R2) ,4, 
M% (R2) ) THENR2=R2-K1 :GOTO70 : rem 61 

80 IFL2>R2THEN110 : rem 248 

90 N$=NS$ (R2 ) : H=M% (R2) :NS$ (R2)=NS$ (L2) :M% 
(R2) =M% (L2) : rem 92 

100 NS$(L2)=N$:M% (L2 ) =H : L2=L2+1 : R2=R2-1 : G 



OTO60 

: rem 

89 

110 

IFL2<R1THENSK=SK+1 :L% (SK) = 

L2:R% (SK) =R 


1 

: rem 

23 

120 

R1=R2 : IFLKR1THEN40 

: rem 

111 

130 

IFSKTHEN30 

: rem 

83 

140 

RETURN 

: rem 

117 

150 

NF=0 :GOSUB300 

: rem 

228 

160 

GOSUB320 : F0RPP=1T08 : R$=" " : 

FL=0 :M% (NF+ 


1) =16 :FORX=lTO30 :GET#5, 1$ 

: rem 

169 

170 

IFI$=CHR$ (160) ANDFL=0THENM% (NF+1) 

=X-4 


:FL=1 

: rem 

158 

180 

R$=R$+LEFT$ (I$+C0$, 1) :NEXT 

: IFPP08THE 


NGET#5, 1$, 1$ 

: rem 

70 

190 

X$=C0$ : IFMID$ (R$, 1, 1) =C0$THENX$=CHR$ ( 


255) :PRINTDD$; 

: rem 

138 


200 NF=NF+1 :NS$ (NF) =R$+X$ : PRINTMID$ (R$, 4, 
16) :NEXTPP : IFYSO255THEN160 : rem 122 
210 CLOSE5 : GOSUB2 0 : rem 90 

220 PRINT" (GIU' ) ( 1 SH P) REMERE SPAZIO PE 
R SCRIVERE LA DIRECTORY" : rem 104 
230 GETA$ : IFA$<>" "THEN230 : rem 138 

240 GOSUB300 :NN=0 :rem 236 

250 GOSUB320 :F0RPP=1T08 :NN=NN+1 : rem 193 
260 PRINT#5,MID$ (NS$ (NN) , 1,30) ; :IFMID$ (NS 
$ (NN) , 31) =CHR$ (255) THENPRINTDD$ ; 

: rem 249 

270 PRINTMID$ (NS$ (NN) , 4, 16) : IFPP08THENPR 
INT#5, C0$ ; C0$ ; : rem 25 

280 NEXTPP : PRINT# 1 5 , "U2 " ; 5 ; 0 ; LT ; LS : IFYSO 
255THEN250 :rem 161 

290 CLOSE5 :END : rem 87 

300 OPEN5, 8,5, : YT=18 : YS=0 : GOSUB320 : PRI 
NT#15, "B-P" ; 5; 143 :PRINTCHR$ (14) 

:rem 193 

310 PRINTRN$; :F0RX=1T024 :GET#5, 1$ :PRINTI$ 
; :NEXT:PRINTRF$ : RETURN : rem 160 


320 PRINT#15, "Ul" ; 5 ; 0 ; YT; YS : LT=YT : LS=YS : G 
ET# 5, T$, S$ : YT=ASC (T$+C0$) : rem 16 

330 YS=ASC (S$+C0$) :RETURN : rem 250 

340 X=150:DIML% (X) ,M% (X) ,R% (X) ,NS$ (X) :K1= 
1 :OPEN15, 8, 15, "I" :C0$=CHR$ (0) :NF=0 

:rem 141 

350 DD$=" :::::::::: : CANCELLATO [<+>] " :RN$= 
CHR$ (18) :RF$=CHR$ (146) : RETURN 

: rem 239 

10000 PRINT " { CLR ) " : COLORO ,2,7: COLOR4 ,15,4 

:rem 222 

10010 PRINT" {GIU' } [<1>] " : rem 85 

10020 PRINT" (RVS } [<*>]{DES) (DES)[<D>] 

[<*>] (DES ) [<@>] (DES } { 2 SPAZI) 

{ DES ) { 2 SPAZI) (DES) { 2 SPAZI) (DES) 
[<D>] [<*>] (DES) [<*>] { 1 SH £ } 

{ 2 DES) [<@>] (DES } { 2 SPAZI )(DES) 
[<D>] [<*>] (DES) { 2 SPAZI}" :rem 159 
10030 PRINT" (RVS } [<M>] (DES) (DES) (OFF) 
{ 1 SH £) (RVS) (DES) { 2 SPAZI) 

(DES) { 1 SH * } (DES ) [<K>] (OFF } [<K>] 
(RVS) (DES) [<M>] [<G>] (DES) (OFF) 

{ 1 SH £} (RVS) (DES) [<K>] (OFF) 

[<K>] { RVS ) { 2 DES}{ 2 SPAZI) (DES) 
[<M>] [<G>] (DES) { OFF } { 1 SH £ } 

(RVS) (DES) [<K>] (OFF) [<K>]":rem 214 

10040 PRINT" {RVS } ( 2 SPAZI) (DES) (DES) 
[<L>] [<*>] {DES) [<T>] {DES ) 

{ 2 SPAZI) {DES) [<K>] {OFF) [<K>] {RVS} 
{DES } { 2 SPAZI) {DES} [<L>] [<*>] {DES} 
[<K>] {OFF} [<K>] {RVS} { 2 DES)[<T>] 
{DES } { 2 SPAZI) {DES} [<L>] [<*>] {DES} 
[<K>] {OFF),[<K>]" : rem 246 

10050 PRINT" { 5 GIU'}" :rem 28 

10060 PRINT" { 7 SPAZI}" : rem 200 

10070 PRINT" { 2 SPAZI) [<3>] [< 5 @>] [<2>] 

{ 33 SH W}"; : rem 26 

10080 PRINT" { 2 SPAZI) [<3>]{ 1 SH M) 

[< 3 @>] { 1 SH N}" : rem 231 

10090 PRINT" { 2 SPAZI) [<M>] [<S>] [<A>] 

[<G>] " : rem 117 

10100 PRINT" { 3 SPAZI) { 1 SH -}{ 1 SH *} 

{ 1 SH -} " : rem 61 

10110 PRINT" { 3 SPAZI) { 1 SH - } { 1 SH * ) 

{ 1 SH -} " : rem 62 

10120 PRINT" { 3 SPAZI) { 1 SH -}{ 1 SH *} 

{ 1 SH -}{ 2 SPAZI) {PUR} {RVS} 

{ 1 SH £} { 4 SPAZI) [<*>] " 

:rem 117 

10130 PRINT" { 3 SPAZI) [<3>]{ 1 SH -} 

{ 1 SH *}{ 1 SH J}{ 2 SH * } {PUR) 
{RVS} { 4 DES) " : rem 101 

10140 PRINT" { 3 SPAZI) [<3>]{ 1 SH -} 

{ 1 SH N}{ 3 SH -} {PUR} {RVS) 

{ 1 SH U}( 1 SH *} { 1 SH I) 

{ 2 SPAZI}" : rem 171 
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10150 PRINT" { 3 SPAZI} [<3>]{ 1 SH J} 

{ 4 SH * } {PUR} {RVS } { 1 SH -} 

{ 1 SH W}{ 1 SH -}( 2 SPAZI}" 

:rem 103 

10160 PRINT" { 8 SPAZI} {RVS} { 1 SH J} 

{ 1 SH *}{ 1 SH K}{ 2 SPAZI} [<2>] 

{ OFF } { 26 SH W}"; : rem 104 

10170 PRINT" { 8 SPAZI} {PUR} {RVS} 

{ 9 SPAZI} [<*>] [<6>] {OFF} { 1 SH P} 
[<Y>] { 1 SH 0}{ 1 SH P } [<Y>] 

{ 1 SH 0}{ 1 SH P } [<Y>] { 1 SH 0} 

{ 1 SH P } [<Y>] { 1 SH 0}{ 1 SH P) 
[<Y>] { 1 SH 0}{ 1 SH P } [<Y>] 

{ 1 SH 0|| 1 SH P } [<Y>] { 1 SH 0} 

{ 1 SH P}"; : rem 231 

10180 PRINT" { 8 SPAZI) {PUR} {RVS} 

{ 10 SPAZI} [<6>] {OFF} [<N>] [<Y>] 

[<H>] [<N>] [<Y>] [<H>] [<N>] [<Y>] [<H>] 
[<N>] [<Y>] [<H>] [<N>] [<Y>] [<H>] [<N>] 
[<Y>] [<H>] [<N>] [<Y>] [<H>] [ <N> ] " ; 

: rem 2 8 

10190 PRINT" { 8 SPAZI} {PUR} {RVS} 

{ 10 SPAZI} [<6>] {OFF} [<N>] [<Y>] 

[<H>] [<N>] [<Y>] [<H>] [<N>] [<Y>] [<H>] 
[<N>] [<Y>] [<H>] [<N>] [<Y>] [<H>] [<N>] 
[<Y>] [<H>] [<N>] [<Y>] [<H>] " ; 

:rem 115 

10200 REM : rem 215 

10210 XX$=" AOCDGZODLEMFUGHAMDKVBE JGHDNCHG 
IR" : rem 110 

10220 Z Z $= " ABCDEFGH I LMNOPQRSTUVZ AB " 

: rem 1 9 

10225 FORHH=0TO50 : rem 230 

10230 X1$=LEFT$ (XX$, 1) : Z1$=RIGHT$ (ZZ$, 1) 

:rem 255 

10240 XX$=RIGHT$ (XX$, 31) +X1$ : ZZ$=Z1$+LEFT 
$ (ZZ$, 24) : rem 106 

10250 PRINT" [<5>] {HOME} { 11 GIU'} 

{ 7 DES } " ; XX$ ; :rem 68 

10255 PRINT" [<5>] {HOME} { 12 GIU'} 

{ 6 DES } " ; XI $; : rem 22 

10260 PRINT" [<5>] {HOME} { 20 GIU'} 

{ 14 DES } " ; ZZ$; : rem 173 

10265 PRINT" {HOME} { 18 GIU' } { 9 DES}[<1>] 
";LEFT$ (XX$, 4) ; : rem 228 

10270 FORUU= 1 TO 1 0 0 : NEXTUU : NEXTHH : rem 89 

10280 PRINT" {CLR} {BLU}": RETURN : rem 152 
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di M. Anticoli 


Ma come si fa a rìdefinire i carat- 
teri di questi giochi? Questa è 
una domanda che quasi sicura- 
mente vi sarete posti dopo aver 
digitato un programma tra quelli 
pubblicati. In questo breve arti- 
colo scopriamo insieme come 
creare nuovi caratteri. 


Il primo problema che si pone all'utente 
nel creare i caratteri ridefiniti è che le in- 
formazioni dei caratteri standard sono 
immagazzinate nella ROM (memoria di 
sola lettura), e sappiamo che questa 
non si può alterare in alcun modo. 

Per produrre caratteri ridefiniti bisogna 
dire al VIC 20 di prendere le informazioni 
dalla RAM (memoria ad accesso casua- 
le), cioè dobbiamo "muovere" il set di ca- 
ratteri dalla ROM alla RAM. 

L’unico svantaggio di questa operazio- 
ne è che i primi 64 caratteri copiati dalla 
ROM alla RAM occupano circa 0,5 
Kbyte di memoria e avanzeranno sola- 
mente 3 Kbyte per i lavori successivi. 

Se invece trasferiamo tutti i 191 caratte- 
ri che il VIC 20 possiede, occuperemo 
1 ,5 Kbyte di memoria. 

Naturalmente, per ridefinire 5 o 6 carat- 
teri basterà solamente salvare 64 carat- 
teri. 

Vediamo con un esempio quali sono le 
istruzioni necessarie per ridefinire i ca- 
ratteri. 

Si provi a digitare questo breve pro- 
gramma: 

5 POKE 52,28: POKE 56,28:CLR 
10 F0RI=7618T07679 :POKEI, PEEK 
(1+25600) : NEXTI 
20 POKE 36869,255 
30 F0RT=7176T07 176+8-1 :READA: 
POKET, A:NEXT T 

40 DATA 120,124,54,30,62,124, 

120,0 

50 PRINT" AAAAAAAAA" : 
END 


Vediamo ora come funziona: nella linea 
5 riserviamo 0,5 Kbyte di memoria. 

La linea 10 copia le informazioni dei pri- 
mi 64 caratteri dalla ROM alla RAM. La li- 
nea 20 "dice" al VIC 20 di prendere le in- 
formazioni dalla RAM. La linea 30 ese- 
gue la POKE dei dati del carattere ridefi- 
nito. La linea 40 contiene i dati del carat- 
tere ridefinito. 

Infine la linea 50 stampa nove volte il ca- 
rattere ridefinito. 

Se si dà un RUN a questo programma, 
dopo circa 6 secondi appariranno 9 "pac- 
man". 


Un quesito che l'utente si potrebbe por- 
re è quello di sapere da dove arrivano i 
numeri dei dati (linea 40). 

Per sapere quei numeri bisogna costruir- 
si una griglia 8*8. Le righe dall'alto ver- 
so il basso dovranno essere numerate 
da 1 a 8, mentre le colonne da sinistra 
verso destra dovranno essere 
contraddistinte dai numeri 

1 28,64,32,1 6, 8, 4, 2,1 (questa numera- 
zione, al primo impatto così strana, 
deriva dal sistema binario). 

Dentro questa griglia dovremmo riempi - 
re i blocchetti desiderati. 
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Per esempio, se vogliamo riempire tutta 
la riga numero 1 , per sapere il numero bi- 
sognerà sommare: 

1 28+64+32+1 6+8+4+2+1 =255. 

Se invece vogliamo riempire la riga 2 me- 
no il quadrato sotto il 1 28, il numero deci- 
male sarà dato dalla somma di: 
64+32+16+8+4+2+1=127. 

Una riga senza quadrati riempiti varrà 0. 
Il valore di ogni riga varia tra 0 e 255, 
quindi non può essere maggiore di 255 o 
minore diO. 

Il quadratino può essere riempito (acce- 
so o a 1) o non riempito (spento o a 0): 
non ci sono vie di mezzo. 

Per ogni carattere bisogna conoscere 
gli 8 valori, cioè il valore di ogni riga. 
Quando si disegnerà un carattere su 
carta questo apparirà tutto squadrato, 
quindi prima di dare un giudizio 
conviene provarlo sul computer. 

Se nel programma prima digitato si vuo- 
le ridefinire anche la lettera B, occorrerà 
modificare le seguenti linee in: 

30 F0RT=7176T07176+16-1: 

READA : POKET, A : NEXT T 
40 DATA 120, 124, 54, 30, 62, 124, 
120,0 

45 DATA 120,124,54,30,62,124, 

120,0 

50 PRINT" A A A B B B " 

Se si confronta la linea 30 con quella 
precedente, si noterà che si è aggiunto 
8 al precedente 8 nel ciclo FOR/NEXT. 
Per ridefinire altri caratteri bisogna sem- 
pre aggiungere 8 in questo ciclo; natural- 
mente bisognerà introdurre anche i valo- 
ri (linea 45 per i valori di B). 

Se si vogliono copiare tutti i caratteri dal- 
la ROM alla RAM , occorrerà modificare 
le linee 5,10 e 20 in : 

5 POKE 52,24 :POKE56, 24 
10 F0RZ=6144T07679 :POKEZ, PEEK 
(Z+26624 ) : NEXTZ 
20 POKE 36869,254 


Bisogna ricordare che ora si hanno a di- 
sposizione solo 2 Kbyte di memoria. 

Se durante un gioco si vuole stampare 
un messaggio, è necessario tornare nel 
modo testo, cioè dire al VIC 20 di pren- 
dere i caratteri dalla ROM e non più dalla 
RAM. 

Ricordiamo che occorre introdurre l'istru- 
zione POKE 36869,255 per dire al VIC 
20 di prendere i caratteri dalla 
RAM, mentre per prelevarli dalla ROM l'i- 
struzione è POKE36869.240; questa 
istruzione è subito eseguita appena noi 
accendiamo il VIC 20; infatti in quel 
momento possiamo digitare solo caratte- 
ri presi dalla ROM. 

Se per esempio in un programma tipo 
"space invaders" una bomba ha colpito 
il giocatore e si deve stampare un mes- 
saggio di fine partita, bisognerà prima 
tornare in modo testo (PO- 
KE36869,240), poi pulire lo schermo e 
scrivere il messaggio desiderato. 

Esiste un altro modo per stampare mes- 
saggi, e consiste nel racchiudere il mes- 
saggio fra "reverse on" e "reverse off". 

Se per esempio vogliamo far visualizza- 
re sul video il numero di vite rimaste, il 
metodo spiegato prima sarebbe troppo 
macchinoso e poco pratico, sia per il 
programmatore che per il giocatore. 

Per far stampare la parola "vite" in un 
programma basterà eseguire la PRINT 
poi digitare il tasto CTRL+9 (cioè il rever- 
se on), scrivere la parola e infine digita- 
re CTRL+0 (cioè il reverse off). 

Si provi con il primo programma descrit- 
to a immettere questa linea: 

45 PRINT" {RVS ON} AAAA {RVS 
OFF } " 

ora si potrà vedere il "pac-man" e la lette- 
ra A!! 


Il programma "caratteri ridefi- 
niti" 

Questo semplice programma ridefinisce 
26 caratteri, cioè l'alfabeto con caratteri 
nuovi e simpatici, detti caratteri com- 
puter. 

Dopo aver dato il RUN occorrerà aspet- 
tare qualche secondo, poi lo schermo 
verrà pulito e comparirà la scritta 
"ready"; non verrà visualizzato il curso- 
re, ma se si preme un tasto si vedrà il 
nuovo carattere ridefinito. Ora spieghia- 
mo come il programma lavora. 

Linea 5 riserva 0,5 Kbyte di memoria. 
Linea 1 0 mette nella variabile CA il nume- 
ro di caratteri da ridefinire e salta alla li- 
nea 70. Le linee 13 e 15, rispettivamen- 
te, puliscono il video e concludono il pro- 
gramma. La linea 70 copia i primi 64 ca- 
ratteri dalla ROM alla RAM. 

La linea 80 mette i valori dei caratteri nel- 
la RAM. Dalla linea 100 in poi sono tutti i 
valori dei caratteri. 

Notiamo nella linea 80 una moltiplicazio- 
ne non vista prima: naturalmente que- 
sta linea è giustissima. 

Invece di fare una moltiplicazione con la 
nostra mente, lasciamo al computer que- 
sto compito, introducendo in una variabi- 
le il numero di caratteri ridefiniti. 

Se per esempio i caratteri da ridefinire 
sono tre, si dovrebbe fare: 8+8+8=24 e 
introdurre il 24 nel ciclo FOR/NEXT; se 
invece immettiamo nella variabile A=3 e 
facciamo fare al computer A(=3)*8=24, 
non è più semplice? 

Speriamo che con questo articolo i gio- 
chi dei nostri lettori diventino ancora più 
belli; ricordiamo anche che per imprati- 
chirsi con i caratteri ridefiniti bisogna 
provare e riprovare. 


Caratteri ridefiniti per Vic20 


1 

REM *** CARATTERI RIDEFINITI 

* ★ ★ 




: rem 

151 

2 

REM *** DI MASSIMILIANO ANTICOLI *** 



: rem 

120 

3 

REM *** PER *VIC 20* *** 

: rem 

146 

5 

POKE 52,28 :POKE56, 28 :CLR 

: rem 

230 

10 

CA=2 6 : GOSUB 70 

: rem 

171 

13 

PRINT" {CLR}" 

: rem 

200 

15 

END 

: rem 

61 

70 

FORI=7 1 68T07 67 9 :POKEI, PEEK (1+25600) 

: NE 


XTI 

: rem 

177 

80 

F0RI=7176T07176+8*CA-1 :READB 

: POKEI , 

B:N 


EXTI :POKE36869, 255 :RETURN 

: rem 

102 

100 DATA60, 52,52, 62, 99, 99, 99, 0: 

REM A 




: rem 

96 

101 DATAI 2 4 , 68, 68, 12 4, 98, 98, 126 

, 0 : REM 

B 


: rem 245 

102 DATA126, 66, 64, 96, 96, 98,126,0 :REM C 

: rem 201 

103 DATA124, 70, 66, 98, 98, 102, 124, 0 :REM D 

:rem 234 

104 DAT Al 2 4, 64, 64,124, 96, 96,124,0: REM E 

:rem 237 

105 DATA124, 64, 64, 124, 96, 96, 96, 0 :REM F 

: rem 199 

106 DATA126, 64, 96, 102, 98, 98, 126, 0 :REM G 

:rem 250 

107 DATA6 6 , 66, 66,126, 98, 98, 98,0: REM H 

:rem 172 

108 DATAI 6, 16 f 16,24,24,24,24, 0: REM I 

:rem 75 

109 DATAI 2 4, 16, 16, 48, 48, 48,240,0: REM J 

: rem 191 

110 DATA67 ,70,76, 120, 108, 102, 67, 0 : REM K 

:rem 230 
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111 DATA64,64,64,96,96,96,124,0:REM L 

:rem 157 

112 DATA255, 137, 137, 2 01, 201, 201, 2 01, 0 : REM 

M :rem 155 

113 DATA12 6, 6 6, 66, 98, 98, 98, 98,0: REM N 

:rem 180 

114 DATA12 6,70, 66, 66, 66, 66, 126, 0: REM 0 

: rem 202 

115 DATA124, 68, 68, 124, 96, 96, 96, 0 :REM P 

:rem 218 

116 DATA252, 132, 132,228,228,228,255, 0: REM 

Q :rem 186 

117 DATA124, 68, 68, 126, 98, 98, 98, 0 :REM R 

:rem 230 

118 DATA126, 102, 96, 126, 6, 102, 126,0 :REM S 

: rem 31 

119 DATA126, 16, 16,24,24,24,24, 0 :REM T 

:rem 138 

120 DATA66, 66, 98, 98, 98, 98, 126, 0 :REM U 

: rem 185 

121 DATA98, 98, 98, 102,36,36, 60, 0:REM V 

: rem 164 

122 DATA137, 137,201,201,201,201,255,0 : REM 

W : rem 166 

123 DATAI 95,102,60,60,60,102,195,0: REM X 

:rem 32 

124 DATA66, 66, 66, 126, 24, 24, 24,0 :REM Y 

: rem 155 

125 DATA126, 66,2, 126, 96, 98, 126, 0 :REM Z 

: rem 215 

1100 DATA40, 3, 41, 32, 32, 13, 1, 19, 19, 9, 13, 9, 
12,9,1,14,15,32,32,1,14,20,9,3,15,12 
, 9 : rem 33 
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di D. Brady 

trad. e adatt. di L. Zaninello 


Spesso è lungo e noioso aspet- 
tare con gli occhi incollati al vi- 
deo la fine del caricamento di 
un programma da cassetta. Con 
questa routinetta potrete udire 
un segnale sonoro al termine 
del caricamento da nastro. 


Chi è abituato a usare il registratore a 
cassette conosce molto bene quanto 
siano lunghi i tempi d'attesa del carica- 
mento e salvataggio di un programma; 
perciò abbiamo pensato di proporre un 
piccolo programmino che, una volta atti- 
vato, vi avvisi con un suono del termine 
di un' operazione di caricamento/salva- 
taggio, permettendovi così di svolgere 
altre operazioni. 

Questo programma si colloca nella zona 
superiore della memoria e vi resta fino a 


quando il computer viene alimentato op- 
pure finché i puntatori nelle locazioni 55 
e 56 non vengono cambiati. 

Se vengono usati i tasti RUN STOP/RE- 
STORE occorre una SYS all'inizio del 
programma per resettare i vettori 
LOAD/SAVE. 

Dato che l'indirizzo del "top" della memo- 
ria varia a seconda della RAM del VIC, il 
programma mostrerà l'appropriata loca- 
zione per la SYS. 

E' bene ricordare quindi questo valore. 


30 SUPERCOMMOOORE 16 VIC20 PLUS/4 3/86 



Usare lo "stack" 

Se avete un VIC inespanso o state cari- 
cando o memorizzando un programma 
che usa tutta la memoria disponibile, po- 
tete cancellare le linee 20 e 25 e cambia- 
re le seguenti: 

10 EM=267 
15 PT=EM 


Questi cambiamenti collocano il linguag- 
gio macchina nello stack del sistema 
operativo e così non viene usata memo- 
ria del BASIC; inoltre collocano la 
routine abbastanza in basso nello 
stack, tanto da non essere toccata 
dalla maggior parte dei programmi. 

Lo stack è usato per la memorizzazione 
temporanea di programmi in linguaggio 


macchina e dal sistema operativo del 
computer. 

La routine resta nella stessa posizione 
anche dopo che molti programmi sono 
stati fatti girare. 

Così dopo un RUN STOP/RESTORE sa- 
rà sufficiente dare una SYS 267 per ripri- 
stinare i puntatori utilizzati dal nostro 
programma. 


10 

EM=PEEK (56) *256+PEEK (55) -60 

: rem 

118 

65 

SYS EM: SYSB (3) +B ( 4 ) *256 :NEW : rem 

216 

15 

PT=EM:GOSUB100 

: rem 

36 

75 

DATA 169,-1, 141, 48, 3, 169,-2, 141, 49, 

3,1 

20 

POKE51, LB :POKE55, LB 

: rem 

62 


69,-5,141,50,3,169,-6 :rem 

225 

25 

POKE52 , HB : POKE5 6 , HB 

: rem 

61 

80 

DATA 141,51,3, 96,32,73,245,76,-7,-8 

,32 

30 

PRINT : PRINT”SYS "EM:PRINT" (PER RESETTA 


,133,246,8,72,9,15 :rem 

88 


RE I PUNTATORI)" 

: rem 

141 

85 

DATA 141,14,144,169,240,141,12,144, 

165 

35 

PT=PT+21 

: rem 

123 


,162,105,250,197,162 :rem 

187 

40 

F0RX=1T07STEP2 :GOSUB100 :B (X) 

=LB:B (X+l) 

90 

DATA 48,252,169,0,141,12,144,104,40 

,96 


=HB 

: rem 

220 


: rem 

222 

45 

PT=PT+3:NEXT X 

: rem 

29 

100 HB=INT (PT/256) :LB=PT - HB*256 : RETURN 

50 

FORX=EMTOEM+57 

: rem 

63 


: rem 

69 

55 

RE ADN : IFN<0THENN=B (N*-l ) 

: rem 

122 




60 

POKEX, N : NEXT X : PRINT : PRINT 

: rem 

198 
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di A. Scalinger 

trad. e adatt. di S. Albarelli 


Joe ha deciso di diventare 
esploratore, seguendo l'esem- 
pio di un suo amico che in 
questo modo si ò arricchito enor- 
memente. Si reca quindi in 
Egitto ed entra in una piramide 
non ancora esplorata, perchè 
abitata, a quanto dicono anti* 
che leggende, da fantasmi asse- 
tati di sangue. 


Appena entrato vede davanti a sé muc- 
chietti d'oro sparsi qua e là, ma appena 
ne raccoglie uno ecco tre famelici fanta- 
smi che lo inseguono. Perchè non aiu- 
tarlo? 

Ogni mucchietto d'oro raccolto frutta 

10 punti. 

11 terreno nell'interno della piramide ce- 
de molto facilmente e crea delle buche 
nere, nelle quali bisogna far cadere i fan- 
tasmi e dalle quali bisogna tenersi ben 
lontani, perchè se si cade dentro una di 
esse, si diventa fantasmi. 

Se si riesce a far cadere tutti i fantasmi 
nelle buche, si riceve un bonus di 50 
punti e si passa al livello successivo, 
dove c'è un fantasma in più a seguire 
Joe, rispetto al livello precedente. 

Ed ora buon divertimento II 
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Gli spiriti 

1000 PRINTCHR$ (147)CHR$ (5) :POKE36879, 40 

: rem 205 

1010 PRINT" { 4 GIU' }"SPC(5) "GLI SPIRITI." 

: rem 181 

1020 GOSUB2 1 8 0 : REM PRESENTAZIONE : rem 19 
1030 FORA=15TOOSTEP- . 4 : POKE36878 , A:POKE36 
87 6, 238+A:POKE36875, 239+A:POKE36874, 
238+A :rem 21 

1040 FORT=lTO100 :NEXT :POKE36876, 0 :POKE368 
75,0 :POKE36874, 0 :NEXT : rem 10 

1050 POKE36878, 15 :POKE36876, 130 :POKE3 6875 
,131 :POKE36874, 194 : rem 68 

1060 POKE52, 27 :PCKE56, 27 :CLR:F0RI=7168T07 
67 9 : POKEI, PEEK ( 1+25600 ) :NEXT 

:rem 177 

1070 GOSUB2300 : rem 13 

1080 GETA$ : IFA$<>"S"ANDA$O"N"THEN1080 

:rem 137 

1090 IFA$="N"THENPRINT" {GIU' } { 5 DES } ATTE 
NDERE . :GOTO1190 : rem 101 

1100 POKE3687 6, 0 :POKE36875, 0 :POKE36874, 0 

: rem 254 

1110 PRINTCHR$ (147) " *** GLI SPIRITI. *** 
" : rem 172 

1120 PRINT"LO SCOPO DEL GIOCO E' DI RACCO 
GLIERE PIU'{ 3 SPAZI }ORO POSSIBILE S 
ENZA{ 2 SPAZI}" : rem 67 

1130 PRINT "FARSI PRENDERE DAI 3 

{ 2 SPAZI} FANTASMI CHE LO{ 7 SPAZI} 
CUSTODISCONO." :rem 234 

1140 PRINT"IL TERRENO FRANA SPES-SO FORMA 
NDO DELLE { 5 SPAZI }BUCHE, UTILISSIME 
PER" : rem 251 

1150 PRINT"FARCI CADERE I FANTAS-MI, MA L 
E TALI ANCHE { 3 SPAZI} PER TE, PERCHE' 
TI { 3 SPAZI}" : rem 101 

1160 PRINT "TRASFORMANO IN{ 8 SPAZI JFANTAS 
MA, TERMINANDO { 2 SPAZI }LA PARTITA." 

: rem 180 

1170 PRINT"ED ORA BUONA FORTUNA." 

: rem 199 

1190 POKE3687 6, 0 :POKE36875, 0 :POKE36874, 0 

: rem 7 

1200 REM L.M. LETTURA JOYSTICK : rem 45 

1210 A=0 :F0RJ=828T0912 :READX:POKEJ,X:A=A+ 
X : NEXT : READX : IFAOXTHENPRINT" { YEL } ER 
RORE NEI DATI": END : rem 219 

1220 REM RIDEF . CARATTERI : rem 224 

1230 FORC=7 432T07527 : READ A : POKEC , A : NEXT 

:rem 158 

12 40 REM L.M. LETTURA JOYSTICK : rem 4 9 
1250 PRINT" {GIU' } {DES } {RVS } * PREMERE UN T 
ASTO * { OFF } " : rem 253 

1260 GETA$ : IFA$=""THEN1260 : rem 181 

1270 SYS828 :PRINTCHR$ (147) :POKE36869, 255 

:rem 97 

1280 REM VARIABILI : rem 66 

1290 A=PEEK (368 66) AND 12 8 : SC=4*A+64* (PEEK ( 
36869) AND112) :CO=37888+4*A : rem 201 
1300 D IMX ( 4 ) , Y ( 4 ) :rem 133 

1310 MA=0 :N=22 :HU=43 : SP=32 : TW=21 :TE=10 

:rem 217 


1320 Gl=41 :G2=G1 :G3=G1 : rem 177 

1330 Sl=3687 6 : S2=S1+1 : V=S2 + 1 : rem 32 

1340 X(4)=10:Y(4)=10 :D=1 :G=43 :K=1 :M=2 :0=3 
:P=4:Q=5 : rem 228 

1350 JN=841 : JS=842 : JW=843 : JE=844 : ZE=0 : GD= 
4 4 : rem 250 

1360 REM INIZIALIZZA LO SCHERMO : rem 168 

1370 FORL=lTO50 :R=INT (RND (1) *440+44) :POKE 
CO+R, 7 : POKESC+R, 4 4 : NEXT : rem 152 

1380 F0RT=1T03 : X (T) =INT (RND ( 1 ) *20) :Y(T)=I 
NT (RND (1) *18+2) : rem 244 

1390 IFPEEK (SC+X (T) +22*Y (T) ) <>32THENT=T-1 
:NEXTT : rem 101 

1400 POKECO+X (T) +22*Y (T) , 5 : POKESC+X (T) +22 
*Y (T) ,41 :NEXT : rem 174 

1410 POKECO+X ( 4 ) +2 2 * Y ( 4 ) , 7 :POKESC+X (4) +22 
*Y ( 4) ,42 : rem 185 

1420 PRINT" {HOME} {CYN} !#$% {WHT } "SE : PRINT" 
{HOME} {CYN} "SPC (11) !#$%{WHT}"HI 

:rem 126 

1430 REM ROUTINE PRINCIPALE : rem 185 

1440 FORT=lTOO:OX(T)=X(T) :OY(T)=Y(T) :NEXT 
:MX=X (P) : MY=Y ( P ) : rem 139 

1450 Z= (KAND (PEEK ( JN) =ZE) ) + (MAND (PEEK ( JS) 
=ZE) ) + (OAND (PEEK ( JW) =ZE) ) + (PAND (PEEK 
( JE) =ZE) ) : rem 154 

1460 ONZGOSUB1620, 1640, 1660, 1680:rem 246 

1470 R=INT (RND (K) *0+K) :ONRGOSUB1710, 1780, 
1850 :rem 110 

1480 IFG1=GANDG2=GANDG3=GTHEN2050 

:rem 239 

1490 REM : rem 178 

1500 IFRND (1) < . 1THENU=INT (RND (K) *440+GD) : 

POKECO+U, 0 : POKESC+U, G : rem 20 

1510 IFPEEK (SC+X (P) +N*Y( 4) ) =GDTHENGOSUB20 
0 0 : rem 6 4 

1520 IFPEEK (SC+X (P) +N*Y (4) )=HUTHEN2100 

: rem 212 

1530 IFMA=KTHEN2100 : rem 96 

1540 POKECO+X (K)+N*Y(K) , Q : POKESC+X (K) +N*Y 
(K) , Gl : rem 25 

1550 POKECO+X (M) +N*Y (M) , Q : POKESC+X (M) +N*Y 
(M) , G2 : rem 35 

1560 POKECO+X (0) +N*Y(0) , Q : POKESC+X (O) +N*Y 
(O) , G3 : rem 45 

1570 POKECO+X (P) +N*Y (P) , 6 : POKESC+X (P) +N*Y 



(P) ,42 

: rem 

3 

1580 

IFZ=0THEN1430 

: rem 

27 

1590 

POKESC+MX+N*MY, SP 

: rem 

124 

1600 

GOTO1430 

: rem 

200 

1610 

REM 

: rem 

172 

1620 

Y (P) =Y (P) -K: IFY (P) <MTHENY (P) =M 




: rem 

113 

1630 

RETURN 

: rem 

170 

1640 

Y (P) =Y (P) +K: IFY (P) >TWTHENY ( P ) =TW 




: rem 

47 

1650 

RETURN 

: rem 

172 

1660 

X (P) =X (P ) -K : IFX (P) <ZETHENX (P) =ZE 




: rem 

21 

1670 

RETURN 

: rem 

174 

1680 

X (P) =X (P) +K: IFX (P) >TWTHENX (P) =TW 




: rem 

47 

1690 

RETURN 

: rem 

176 

1700 

REM MUOVE I FASTASMI 

: rem 

217 
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1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 


1950 

1960 


1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 


IFG1=GTHENRETURN : rem 99 

X (K) =X (K) +D*SGN (X (P) -X (K) ) :X(K)=X(K) 
-SGN (X (K) ) — SGN (X (K) -N) : rem 105 

Y(K)=Y(K)+D*SGN(Y(P)-Y(K) ) :Y(K)=Y(K) 
-SGN (Y (K) ) -SGN (Y (K) -N) : rem 114 

IFPEEK (SC+X (K) +N*Y (K) ) =GTHENG1=G : GOS 
UB1930 : rem 84 

IFPEEK (SC+X (K) +N*Y (K) ) = 4 2 THENMA=K 

: rem 7 

POKESC+OX (K) +N*OY (K) , SP : rem 183 

RETURN : rem 175 

IFG2=GTHENRETURN : rem 107 

X (M) =X (M) +D*SGN (X (P) -X (M) ) :X(M)=X(M) 
-SGN (X (M) ) -SGN (X (M) — N) : rem 126 

Y(M)=Y(M)+D*SGN(Y(P)-Y(M) ) :Y(M)=Y(M) 
-SGN (Y (M) ) -SGN (Y (M) -N) : rem 126 

IFPEEK ( SC+X (M) +N*Y (M) ) =GTHENG2=G : GOS 
UB1930 : rem 87 

IFPEEK (SC+X (M) +N*Y (M) ) =42 THENMA=K 

: rem 9 

POKESC+OX (M) +N*OY (M) , SP : rem 185 

RETURN :rem 173 

IFG3=GTHENRETURN :rem 106 

X (0) =X (0) +D*SGN (X (P) -X (O) ) :X(0)=X(0) 
-SGN (X (0) ) -SGN (X (0) -N) :rem 138 

Y (O) =Y (0) +D*SGN (Y (P) -Y (O) ) :Y(0)=Y(0) 
-SGN (Y (O) ) -SGN (Y (O) -N) : rem 147 

IFPEEK ( SC+X (0) +N*Y (O) ) =GTHENG3=G : GOS 
UB1930 : rem 99 

IFPEEK (SC+X (0) +N*Y (0) ) =42THENMA=K 

: rem 2 0 

POKESC+OX (0) +N*OY (0) , SP :rem 187 

RETURN : rem 171 

REM : rem 17 6 

REM FASTASMA CADUTO NELLA BUCA 

:rem 72 

FORVO=15TOO STEP-1 : POKEV, VO : POKES 1,16 
0+VO*3 :POKES2, 160+VO*3 :NEXT : SE=SE+10 

:rem 97 


IFSE>HITHENHI=SE 
PRINT" {HOME } {WHT } { 
(HOME } "SPC (17) ;HI 
POKES2,0: POKES 1,0 
RETURN 

REM PRENDE L'ORO 


:rem 90 
DES}"SE: PRINT" 

: rem 7 8 
: rem 42 
:rem 178 
:rem 216 


FORL=KTOTE : F=INT (RND ( 1 ) *20+234) :POKE 
V, TE: POKES 1, F :NEXT : SE=SE+5 : rem 203 

IFSE>HITHENHI=SE : rem 78 

PRINT" { HOME )( WHT } { 4 DES } "SE : PRINT" 
{HOME} "SPC (17) ;HI :rem 66 

POKES 1,0: POKEV, 0 : rem 239 

RETURN : rem 166 

REM VITTORIA : rem 29 

PRINTCHRS (147) "{YEL} { 9 GIU') 


{ 5 DES} BONUS { 2 SPAZI } PUNTI" :SE=SE+ 
50 :rem 157 

2070 FORF=15TOOSTEP- . 4 :POKEV+l, 42 : POKEV, F 
:POKESl, 238+F :POKESl-l, 239+F :POKESl- 
2,238+F :rem 72 

2080 POKEV+1, 40 :NEXT: POKEV, 0 : POKES 1, 0 :POK 
ESI— 1, 0 :POKESl-2, 0 :rem 103 

2090 PRINTCHR$ (147) :GOTO1320 :rem 127 

2100 REM FINE GIOCO : rem 58 

2110 POKECO+MX+N*MY , 5 :POKESC+MX+N*MY, 41 

:rem 168 

2120 FORF=250TO130STEP— 1: POKEV, 15:POKESl, 
F : POKES2 , F : POKESl-1 , F+l : NEXT 




: rem 

57 

2130 

POKES 1, 0 :POKESl-l, 0 :POKES2, 

0 




: rem 

198 

2140 

PRINT" {HOME} {WHT} { 2 GIU'H 

7 DES }PE 


CCATO . " 

: rem 

202 

2150 

PRINT" {GIU' } { 5 SPAZI} PREMI 

{ YEL } FUO 


CO {WHT}" 

: rem 

70 

2160 

IFPEEK (845) O0THEN2160 

: rem 

17 

2170 

SE=0 : PRINT" {CLR} " :GOTO1310 

: rem 

165 

2180 

REM PAGINA DI PRESENTAZIONE 

: rem 

211 

2190 

PRINT" {YEL}" 

: rem 

59 

2200 

PRINTSPC (8) "{RVS} { 1 SH £} 




{ 4 SPAZI} [<*>] {OFF}" 

: rem 

48 

2210 

PRINTSPC (7) "{RVS} { 1 SH £ } 

{OFF} 



{RVS} {OFF} { RVS } { 2 SPAZI} {<*>] 



{OFF}" 

: rem 

120 


2220 PRINTSPC (7) " {RVS } { 2 SPAZI) {OFF} 

{GRN} [<K>] {YEL} {RVS} {OFF} {GRN} [<K>] 
{YEL} {RVS } { 3 SPAZI} {OFF}" : rem 171 
2230 PRINTSPC (7) "{RVS} { 8 SPAZI} {OFF}" 

:rem 170 

2240 PRINTSPC (7) "{RVS} { 3 SPAZI} {OFF} 

{ 2 SPAZI} {RVS} { 3 SPAZI} {OFF}" 

: rem 7 9 

2250 PRINTSPC (7) "{RVS} { 2 SPAZI} {OFF} 

{RVS } { 2 SPAZI} {OFF} {RVS} 



{ 2 SPAZI} {OFF}" 

: rem 

244 

2260 

PRINTSPC (7) "{RVS} { 8 SPAZI} {OFF}' 

» 



: rem 

173 

2270 

PRINTSPC (7) "{RVS} { 2 SPAZI} {OFF} 



{RVS}{ 2 SPAZI} {OFF} {RVS} 

{ 2 SPAZI} {OFF}" 

: rem 

246 

2280 

PRINTSPC (8) " {RVS} {OFF}{ 2 

SPAZI} 



{RVS} { OFF } { 2 SPAZI} {RVS} 

{OFF}" 

1 



: rem 

248 

2290 

RETURN 

: rem 

173 

2300 

REM PRESENTAZIONE 

: rem 

144 

2310 

PRINT" {WHT}" 

: rem 

156 

2320 

FORX=15T01STEP-l :READA$ : IFA$="*"THEN 


RETURN 

: rem 

186 

2330 

FORT=OTOX:PRINTTAB (T) " ";A$ 

: PRINT 

i ii 


{ 2 SU } " : NEXT : NEXT 

: rem 

177 

2340 

REM DATI PER IL TITOLO 

: rem 

38 

2350 

DATA?, , ,I,N,0,I,Z,U,R,T,S 





: rem 

169 

2360 

REM DATI L.M. 

: rem 

198 

2370 

DATA120, 169,78,141,20,3,169 

,3,141 

,21 


,3,88 

: rem 

6 

2380 

DATA96, 0, 0, 0,0, 0,169, 0, 141, 

19,145 

,16 


9,127,141 

: rem 

188 
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2390 DATA34, 145,173,17,145,41,4,141,73,3, 
173 :rem 165 

2400 DATAI 7, 145, 41, 8, 141, 74, 3, 173, 17, 145, 
41,16,141 :rem 194 

2410 DATA75,3,173,32,145,41,128, 141,76,3, 
173 :rem 163 

2420 DATA17, 145, 41, 32, 141, 77, 3, 169, 255, 14 
1,34,145 :rem 156 

2430 DATA169, 128, 141, 19, 145, 76, 191, 234,0, 
0,0,0,7167 : rem 254 

2440 REM DATI CARATTERI : rem 111 

2450 DATA251, 130, 130, 250, 10, 10, 251, 0,0,0, 
0,0,0,0,0,0,239,8,8,8,8,8,239,0 

:rem 190 

2460 DATA190, 162, 162, 190, 164, 162, 162,0 

:rem 125 

2470 DATA248, 128, 130, 224, 130, 128, 248, 0,13 

8.136.138.250.138.138.138.0. 0.0.0.12 

4. 0. 0. 0.0 :rem 145 

2480 DATA255, 255, 255, 255, 255, 255, 255, 255 

:rem 252 

2490 DATA60, 8 6, 87, 255, 231, 219, 10 9, 36 

: rem 4 9 

2500 DAT A2 4,24,0,56,68,16,40,40 :rem 25 

2510 DATAO, 60,126,12 6,12 6,12 6, 60,0 

: rem 166 

2520 DATAO, 0,0, 8, 44, 53, 95,251 : rem 181 
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di J. Gregory 

trad. e adatt. di L. Zaninello 



Molti anni fa i canguri vivevano 
in assoluta libertà nell'Inconta- 
minata Australia, ma, si sa, il 
progresso ò inarrestabile e al 
posto delle pianure sono sorte 
grandi autostrade. 

Aiutate dunque il piccolo cangu- 
ro Skippy a raggiungere il suo ri- 
fugio, evitando gli automezzi 
che circolano. 


Questo gioco è estremamente sempli- 
ce, sia dal punto di vista della program- 
mazione sia per quanto riguarda il gioco 
stesso; tuttavia risulta abbastanza pia- 
cevole. 

Dato il RUN, dopo pochi secondi si pre- 
senterà la scena del gioco: voi dovete 
aiutare Skippy, il canguro bianco posto 
al centro in basso dello schermo che 
vuole ritornare a casa dopo aver fatto 
provviste di cibo, a raggiungere uno dei 
quattro rifugi visibili oltre il fiume all'e- 
stremità alta del video. 

Per fare ciò ci si può avvalere tanto dei 


tasti cursore quanto del joystick (forse i 
primi sono più comodi). Bisogna inoltre 
fare attenzione a come ci si muove, poi- 
ché capita molto spesso di fare un pas- 
so più del necessario. 

Per completare il quadro occorre che 
ogni rifugio abbia un canguro e così si 
può continuare, incrementando il pun- 
teggio. Fate attenzione a non mandare 
un canguro su una casetta già occupa- 
ta, perchè lo perdereste. 

Se riuscite ad arrivare a 10 punti, vi ver- 
rà dato un bonus e dopo i 20 avrete una 
vita in più. 


Vediamo ora brevemente come è struttu- 
rato il programma: il ciclo principale del 
gioco si ha tra le righe 1 00-1 90, ma la pri- 
ma operazione che viene fatta è quella 
di ridefinire alcuni caratteri che conter- 
ranno le varie shape e questo avviene a 
partire dalla linea 830. 

Tutte le altre azioni sono ben separate 
dalle varie REM presenti nel program- 
ma. Non vi resta quindi che aiutare il pic- 
colo canguro ad attraversare strada e 
fiume, ma attenti al progresso !!! 
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Skippy 

10 REM SKIPPY : rem 37 
20 REM IL CANGURO : rem 234 
30 POKE52, 55 :POKE54, 55 :POKE56, 55 : rem 97 
40 POKE65298, 192 :POKE65299, (PEEK(65299) A 


ND 3) OR 56 

: rem 

245 

5 0 COLORO , 1 : COLORI , 2 : COLOR4 , 1 : VOL8 




: rem 

102 

60 GOSUB830 

: rem 

129 

70 KA=3 : SC=0 

: rem 

160 

80 GOSUB740 :GOSUB680 :KH=0 

: rem 

21 

90 KX=20 :KY=21 :K=116 :CA=81 :CC=72 

:M=0 




: rem 

65 

100 

CHARl , KX, KY, CHR$ (K) 

: rem 

72 

110 

REM CICLO DEL GIOCO 

: rem 

38 

120 

GOSUB450 : IFKAND1THENGOSUB590 

: GOTO120 



: rem 

23 

130 

CH=PEEK (3072 +KX+KY* 4 0 ) 

: rem 

201 

140 

I FCH> 6 3 ANDCH< 7 7 ORC A> 81THEN210 




: rem 

236 

150 

IFKY=3THEN3 1 0 

: rem 

252 

160 

GOSUB400 : IFTSTHENGOSUB5 8 0 

: rem 

103 

170 

IFCA>67ANDCA<80THENKX=KX+ (1ANDKY= 

5) - ( 


1ANDKY=7 ) 

: rem 

51 

180 

IFKX=0ORKX=39THEN210 

: rem 

231 

190 

GOTOIOO 

: rem 

100 

200 

REM PERDITA DI UNA VITA 

: rem 

36 

210 

KA=KA- 1 

: rem 

70 

220 

FORI=800T0100STEP-100 

: rem 

199 

230 

SOUND2, 1,1 :NEXTI 

: rem 

228 

240 

IFKATHENPOKE3 0 7 2 +KX+KY* 4 0 , CA 

. :POKE2048 


+KX+KY* 4 0 , CC : GOSUB 6 8 0 : GOTO 9 0 

: rem 

254 

250 

SCNCLR 

: rem 

92 

270 

CHARl, 2, 16, "PREMI LA BARRA PER UN 

ALT 


RO TENTATIVO" 

: rem 

133 

280 

GETKEYZ$ : IFZ$OCHR$ (32) THEN280 




: rem 

34 

290 

GOTO 70 

: rem 

59 

300 

REM 

: rem 

119 

310 

F0RJ=1T02 

: rem 

8 

320 

FORI=100T0800STEP100 

: rem 

155 

330 

SOUND2 ,1,1: NEXT I 

: rem 

229 

340 

FORI=80 OTOIO 0STEP-100 

: rem 

202 

350 

SOUND 2 ,1,1: NEXT I : NEXT J 

: rem 

170 

360 

KH=KH+1 : SC=SC+1 :GOSUB680 

: rem 

175 

365 

IFSC=10 THEN SC=SC+INT (RND (0) *3) +1 :EL 


SE IFSC=20 THEN KA=KA+1 

: rem 

133 

370 

IFKH<4THEN90 

: rem 

196 

380 

CHARl, 6, 12, "MOLTO BENE CE L' 

HAI FATTA 


! " : GOTO 80 

: rem 

41 

390 

REM 

: rem 

128 

400 

TS=0 :GETZ$ 

: rem 

64 

410 

I F Z $ = "" T HENRETURN 

: rem 

50 

420 

TS=1ANDZ$=CHR$ (145) OR3ANDZ$= 

=CHR$ (29) : 


IFTSTHENRETURN 

: rem 

195 

430 

TS=5ANDZ$=CHR$ (17) OR7ANDZ$=CHR$ (157) : 


RETURN 

: rem 

103 

440 

REM MOVIMENTO MACCHINE 

: rem 

114 

450 

L2$=RIGHT$ (L2$, 1) +LEFT$ (L2$, 

38) 




: rem 

110 

460 

L1$=RIGHT$ (Ll$, 38) +LEFT$ (Ll$ 





: rem 

108 

470 

C3$=RIGHT$ (C3$, 1) +LEFT$ (C3$, 

38) 



: rem 8 8 


480 

C2$=RIGHT$ (C2$, 38) +LEFT$ (C2$ 





: rem 

86 

490 

C1$=RIGHT$ (Cl$, 1) +LEFT$ (Cl$, 

38) 




: rem 

84 

500 

COLORI ,7,3: CHARl , 0 , 5 , L2 $ 

: rem 

27 

510 

CHARl, 0, 7, Ll$ 

: rem 

113 

520 

COLORI ,3,2: CHARl ,0,15,C3$ 

: rem 

65 

530 

COLORI ,8,6: CHARl , 0 , 17 , C2 $ 

: rem 

76 

540 

COLORI ,7,3: CHARl , 0 , 1 9 , CI $ 

: rem 

74 

550 

COLORI, 2 

: rem 

168 

560 

RETURN 

: rem 

123 

570 

REM MOVIMENTO CANGURO 

: rem 

77 

580 

K=116+INT (TS/2 ) *2 :M=TS 

: rem 

243 

590 

I FKAND 1 THEN S OUND 3 , 1000, 4 :ELSESOUND2, 2 


00,4 

: rem 

240 

600 

IF (KAND1) =0THENK=K+1 : ELSEK=K 

-1 




: rem 

36 

610 

P OKE 3072 +KX+KY* 40, CA : POKE2 048 +KX+KY* 4 


o,cc 

: rem 

129 

620 

KX=KX+ ( 1ANDM=3ANDKX<38) - ( 1 ANDM= 7 AND KX 


>2) 

: rem 

158 

630 

KY=KY+ (1ANDM=5ANDKY<23) - (1ANDM=1) 




: rem 

178 

640 

CA=PEEK (3072 +KX+KY *40): CC=PEEK ( 2 0 4 8 +K 


X+KY*40 ) 

: rem 

52 

650 

CHARl , KX, KY, CHR$ (K) 

: rem 

82 

660 

RETURN 

: rem 

124 

670 

REM PUNTEGGIO 

: rem 

51 

680 

IFSC>HSTHENHS=SC 

: rem 

57 

690 

CHARl, 10,0, STR$ (SC) 

: rem 

7 

700 

CHARl, 20, 0,STR$(HS) 

: rem 

5 

710 

CHARl, 33, 0,STR$ (KA) 

: rem 

251 

720 

RETURN 

: rem 

121 

730 

REM DISEGNO DELLO SCHERMO 

: rem 

8 

740 

SCNCLR 

: rem 

96 

750 

COLORI , 2 : CHARl ,0,0, "PUNTEGGIO : 



{ 6 SPAZI }MAX:{ 5 SP AZ I } CANGURI : " 




: rem 

170 

760 

COLORI, 9, 4 : CHARl ,0,2, BA$ 

: rem 

40 

770 

COLORI ,7,3: PRINTRV$ ; RV$ 

: rem 

170 

780 

COLORI, 9, 4 :F0RI=1T05 

: rem 

196 

790 

PRINTB2$; :NEXTI 

: rem 

194 

800 

CHARl , 0 , 2 1 , B2 $ : PRINTB2 $ ; B3 $ 

: rem 

201 

810 

GOTO500 

: rem 

103 

820 

REM DEFINIZIONE DELLE SHAPES 

: rem 

220 

830 

RESTORE 

: rem 

191 

840 

FORI=0TO30 :READJ 

: rem 

223 

850 

POKE882+I, J :NEXTI : SYS882 

: rem 

245 

860 

FORI=0TO223 : READJ 

: rem 

21 

870 

POKE14848+I, J :NEXTI 

: rem 

131 

880 

CR$=CHR$ (96) +CHR$ (97) +CHR$ (98) +CHR$ ( 9 


9) 

: rem 

33 

890 

LY$=CHR$ (100) +CHR$ (101) +CHR$ (102) +CHR 


$ (103) +CHR$ (104) +CHR$ (105) 

: rem 

223 

900 

BK$=CHR$ (106) +CHR$ (107) +CHR$ (108) 




: rem 

155 

910 

LG$=CHR$ (109) +CHR$ (110) +CHR$ (111) +CHR 


$ (110) +CHR$ (111) +CHR$ (112) 

: rem 

201 

920 

W2$=CHR$ (114) +CHR$ (114) 

: rem 

128 

930 

W3$=W2$+CHR$ (114) 

: rem 

71 

940 

S1$=CHR$ (32) : S2$=CHR$ (32) +CHR$ (32) 




: rem 

242 

950 

S3$=S1$+S2$:S4$=S2$+S2$ 

: rem 

160 

960 

S8$=S4$+S4$:S0$=S4$+S8$ 

: rem 

175 
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970 C1$=CR$+CR$+S8$+CR$+S4$+CR$+CR$+CR$+S 

1220 

DATA0, 0,0, 255, 28, 35, 35,28 :rem 

227 

3$ :rem 

39 

1230 

DATA0, 0,0, 255, 225, 17, 16, 224: rem 

64 

980 C2$=LY$+S0$+LY$+S3$+LY$+LY$ : rem 

195 

1240 

DATA0, 1,251, 127, 143, 172, 136, 112 


990 i 

G3$=BK$+BK$+S8$+BK$+BK$+BK$+BK$+BK$+S 


: rem 

8 

2$+S3$ :rem 

213 

1250 

DATA57, 234, 252, 206, 237, 112, 49,0 


1000 

L1$=LG$+W3$+W3$+LG$+W3$+W3$+LG$+W3$+ 


: rem 

25 


W3$+W3$ : rem 

9 

1260 

DATA0, 128, 112, 232, 16, 80, 16, 224 


1010 

L2$=LG$+W3$+W3$+LG$+W3$+W3$+LG$+W3$+ 


: rem 

219 


W3$+W3$ :rem 

11 

1270 

DATA255, 132, 114, 41, 161, 85, 173, 87 


1020 

FORI=lTO100:RV$=RV$+CHR$ (114) :NEXTI 


: rem 

84 


: rem 

121 

1280 

DATA255, 0,243, 0,3, 112, 4, 255: rem 

69 

1030 

F0RI=1T0 8 0 : BA$=BA$ +CHR$ (115) :NEXTI 

1290 

DATA255, 48, 192, 14, 128, 48, 0,255 



: rem 

8 


: rem 

246 

1040 

FORI=45TO75STEP10 : rem 

71 

1300 

DATA240, 12, 98, 1,49, 9, 1,255 :rem 

32 

1050 

MID$ (BA$, 1,1) =CHR$ (32) :NEXTI 


1310 

DATA0, 127, 127, 127, 127, 127,127, 127 


: rem 

68 


: rem 

121 

1060 

FORI=lTO40 : rem 

108 

1320 

DATA170, 85, 170, 85, 170, 85, 170, 85 


1070 

B2$=B2$+CHR$ (113) : B3$=B3$+CHR$ (114) 


: rem 

40 


: rem 

3 

1330 

DATA255, 255,255,255,255,255,255, 

255 

1080 

NEXTI : rem 

81 


: rem 

245 

1090 

RETURN : rem 

170 

1340 

DATA36,24, 90, 60,24, 60, 60,219 


1100 

REM DATA : rem 

192 


: rem 

130 

1110 

DATAI 60, 0,1 32 ,2 12, 132 ,214, 169, 208,13 

1350 

DATA3 6,24,24, 60, 90, 189,126, 136 



3,213,169,56,133,215,162,3 :rem 

253 


: rem 

240 

1120 

DATA177, 212, 145,214,200,208,249, 

230, 

1360 

DATA4, 12, 14,24, 60, 188,184, 94 



213,230,215,202,16,242, 96 : rem 

208 


:rem 

139 

1130 

REM ALTRA SERIE : rem 

149 

1370 

DATA8 ,24,28,24,60, 61, 58, 220 : rem 

85 

1140 

DATA0, 0,3, 31, 63, 125, 2,1 : rem 

111 

1380 

DATA219, 60, 60,24, 60, 90,24, 36 


1150 

DATA127, 132 , 4,255,255,223,32,192 



: rem 

134 


: rem 

73 

1390 

DATA36, 126, 189, 90, 60,24,24,36 


1160 

DATA224, 16,8,255,255,251, 4,3 



: rem 

195 


: rem 

132 

1400 

DATA32, 48, 112,24, 60, 61,29, 122 


1170 

DATA0, 0, 0,248,252, 188,64,128 



: rem 

171 


: rem 

132 

1410 

DATAI 6, 24, 56, 24, 60, 188, 92, 59 


1180 

DAT A3 , 5, 9, 31, 63, 63, 2, 1 : rem 

82 


: rem 

146 

1190 

DATA242, 18,19,240,255,222,33,192 






: rem 

78 




1200 

DATA0, 0,254, 199, 248, 232, 16, 224 






: rem 

227 




1210 

DATA0, 0,0,255,0,0,0,0 : rem 

254 
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di J. Pejsa 

trad. e adatt. di G. Ferri 



Chissà quante voite vi sarà capi- 
tato di far funzionare un pro- 
gramma ed essere interrotti da 
una telefonata o da qualsiasi al- 
tro imprevisto! 

Con questa piccola routine in lin- 
guaggio macchina potete mo- 
mentaneamente interrompere l'e- 
secuzione del vostro program- 
ma e riprenderla al momento op- 
portuno. 


Una funzione molto utile presente in vari 
computer, ma assente nel VIC 20, è 
quella di stop momentaneo del listato 
con i tasti CTRL-S e CTRL-Q. 

Sul VIC il tasto CTRL permette solo di 
rallentare la "corsa" del listato, ma per 
uno studio più approfondito del 
programma è necessario bloccare il li- 
stato con il tasto RUN/STOP. 

Con questo programmino in linguaggio 
macchina abbiamo voluto aggiungere 
queste due funzioni: con CTRL-S si bloc- 
ca il listato (ma anche un programma 
che sta girando) e con CTRL-Q lo si fa ri- 
partire. Il linguaggio macchina per que- 
sto programma è sotto forma di istruzio- 
ni DATA. 

Esso viene caricato a partire dalla loca- 
zione 679 ($02A7) e rimane in locazioni 
di memoria sotto l'area BASIC, in modo 
tale da non interferire con alcun pro- 
gramma di questo tipo. 

La routine viene attivata dalla riga 30, in 
cui è visibile l'appropriata istruzione di 
sistema. 

Purtroppo, se viene usata la combina- 


zione RUN/STOP-RESTORE, vengono 
inibite le funzionalità di questo program- 
mino: con una semplice SYS 679 ver- 
ranno riattivate. 

In breve, il programma funziona come 
segue: quando viene fatto partire con 
SYS679 in BASIC, il vettore di interrupt 
dell'hardware (IRQ) viene cambiato per 
puntare a questo programma. 

L'accesso al programma si realizza ogni 


volta che capita un "hardware-inter- 
rupt", cioè ogni sessantesimo di secon- 
do circa. 

Quindi il programma analizza se è stata 
premuta la combinazione CTRL-S. 

In tal caso ogni funzione è interrotta fi- 
no a che non vengono premuti i due ta- 
sti CTRL-Q. 

Quando ciò avviene il listato riprende a 
scorrere o il programma a "girare". 
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10 FORI=67 9T07 43 : READ A : POKEI , A : X=X+A : NEX 
T : rem 119 

20 IFX<>7 58 9THENPRINT ,f C * E 1 UN ERRORE NEI D 
ATA" : STOP : rem 94 

30 SYS679 : rem 8 

40 DATA 120,169,180, 141,20,3, 169:rem 29 

50 DATA 2,141,21,3, 88, 96, 173 : rem 95 

60 DATA 141,2,201, 4,208,42,165 : rem 179 

70 DATA 197,201,41,208,36,120,169 


: rem 

80 DATA 191, 141,20, 3, 169,234, 141: rem 
90 DATA 21,3, 88,173, 141,2,201 : rem 

100 DATA 4,208,249,165,197,201,48 

: rem 

110 DATA 208,250,120,169,180,141,20 


120 DATA 3,169,2,141,21,3,76 
130 DATA 191,234 

READY . 


: rem 
: rem 
: rem 
: rem 
rem 


88 

31 

135 

92 

169 

83 

14 

0 

173 
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di K. Hawkins 

trad. e adatt. di M. Albarelli 


Chi possiede un'unità singola 
per floppy disk Commodore sa- 
prà certamente quanto sia faci- 
le, per un banale errore di pro- 
grammazione, perdere i program- 
mi presenti in un dischetto o 
cancellarne alcuni e non poterli 
più recuperare. Con questa uti- 
lity i programmi salvati sui vo- 
stri dischetti saranno al sicuro 
come in una cassaforte e non 
correranno alcun rischio di esse- 
re accidentalmente cancellati. 


Chi usa i floppy disk sa che ponendo un 
pezzo di nastro adesivo, o una delle eti- 
chettine fornite insieme ai floppy disk, 
sulla tacchetta presente su un lato del 
dischetto, si può impedire la sovrascrit- 
tura su quel disco. 

In tal modo è possibile caricare program- 
mi, ma non salvarne ed è possibile leg- 
gere file, ma non scriverne. 

Ciò nonostante i difetti di questo siste- 
ma di protezione sono molti e non poco 
rilevanti. 

Infatti l'etichettina o il nastro adesivo so- 
no facilmente asportabili da chiunque 
(qualsiasi persona competente in fatto 
di computer potrebbe quindi, all’insapu- 
ta del padrone del dischetto, manomet- 
terne il contenuto). 

Inoltre un’insufficiente aderenza del na- 
stro adesivo o dell'etichetta al dischetto 
potrebbe renderne difficoltosi l'inseri- 
mento e l'estrazione dall'unità lettrice. 
Questi sono solo due dei difetti che pre- 
senta questo sistema, ma ve ne sono 


molti altri. 


Compatibilità tra unità diverse e 
flag del D.O.S. 

Il sistema operativo D.O.S (Disk Opera- 
ting System) dell'unità a floppy disk 


1541, discende dal D.O.S. delle unità 
più grandi utilizzate dai computer Com- 
modore di modello industriale. 

La Commodore ha fatto ciò per rendere 
compatibili in modo soddisfacente i 
floppy disk di tutti i computer prodotti e 
gestiti dalle relative unità a floppy disk. 
Quando un disco viene formattato, vie- 
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ne diviso in tracce e settori. 

Il blocco di dati identificato dal settore 0 
della traccia 18 contiene la mappa dei 
blocchi, il nome del disco, l'ID del disco 
e altre informazioni importanti. 

Il byte 2 di questo blocco contiene un 
flag, che indica la versione del D.O.S. 
usata per formattare il dischetto. Nor- 
malmente esso contiene il valore $41 ( 
65 decimale, "A" in ASCII). 

Questo valore segnala che il dischetto 
è stato formattato con un'unità 1541 o 
4040, che sono tra loro compatibili. 

Ciò significa che un 1541 può leggere 
un dischetto formattato con un 4040 e 
viceversa. 

Teoricamente un 1541 potrebbe persino 
scrivere su un dischetto formattato da 
un 4040, ma in realtà tale operazione 
non darebbe buon esito, poiché tra il 
1541 e il 4040 c'è una leggera differen- 
za di allineamento delle testine. 

C'è inoltre un'unità per floppy disk Com- 
modore, chiamata 2040, che al momen- 
to della formattazione fornisce il dischet- 
to di un numero maggiore di settori. 

Se un dischetto è stato formattato me- 
diante questa unità, contiene pel byte 2 
del settore 0 della traccia 18 il valore 
$01 (1 decimale). 

I dischetti formattati da un 2040 sono 
compatibili solo in lettura e non in scrittu- 
ra con il 1541. Infatti, se si tenta di sal- 
vare con un 1541 un programma su un 
dischetto del 2040, si otterrà l’errore nu- 
mero 73 del D.O.S.; la luce rossa comin- 
cerà a lampeggiare e non verrà salvato 
nulla. 


Proteggere un dischetto dalla 
scrittura 

Se si cambiasse il valore del flag presen- 
te nel byte 2 del settore 0 della traccia 
18, potremmo far credere al computer 
che il dischetto sia stato formattato con 
un’unità 2040. 

Perciò, quando si tentasse di salvare 
qualche programma su un dischetto di 
cui è stato modificato il valore del flag, il 
computer, pensando che il dischetto 
sia stato formattato con un 2040, non 
salverebbe nulla. 


Ciò può proteggere il dischetto da sovra- 
scritture e da "scratch", cioè cancella- 
zioni, di file e programmi. Questo, co- 
munque, non protegge i file dalla copia- 
tura. 

Esistono in commercio programmi che 
copiano un intero dischetto su un altro 
disco. Utilizzando tali utility per copiare 
un dischetto protetto in tal modo dalla 
sovrascrittura, anche la copia sarà pro- 
tetta, poiché copiando il flag esse lavo- 
rano anche sulla traccia 18 e sul suo 
settore 0. Se invece si copia un solo pro- 
gramma e lo si salva su un altro disco, 
essendo quest'ultimo sprotetto, potrà 
essere cancellato senza problemi (dal 
dischetto sprotetto, naturalmente). 

Dopo aver modificato il flag si potranno 
leggere file e caricare programmi, ma 
non sarà possibile salvare programmi, 
scrivere file, cancellarne, cambiarne il 
nome né dare il comando "validate" all'u- 
nità. 

L'unico comando di scrittura che si può 
utilizzare è il comando "N:nome del di- 
sco, ID", che formatta il dischetto. 
Utilizzandolo, il disco verrà automatica- 
mente "sprotetto", ma verranno persi tut- 
ti i programmi in esso contenuti. 


"Sproteggere" un dischetto 

Cambiare il contenuto del flag di D.O.S. 
presente nel byte 2 del settore 0 della 
traccia 18 è molto semplice, poiché si 
utilizzano i comandi "Block-Read"(U1) e 
"Block-Write"(U2). 

Come fare, se si cambia idea e si vuole 
nuovamente scrivere su di un disco pro- 
tetto? Basta mettere il valore originale 
nel flag di D.O.S.! Esso, come già det- 
to, è $41 . 

Procedendo in tal modo il processo di 
protezione si converte. 

Però, poiché il dischetto è protetto, non 
ci è concesso usare questi due coman- 
di: perciò è necessario ricorrere al co- 
mando "Memory-Write", molto simile a 
una POKE, attuata però all'interno della 
memoria del dischetto. Facendo ciò è 
possibile usare i due comandi sopra indi- 
cati per "sproteggere" il dischetto, ripor- 
tando il flag al suo valore consueto. 


Come usare il programma "Disk 
lock" 

Questo programma è molto facile da 
usare ed è disponibile nella versione 
VIC 20 e C64. Quando lo si fa girare, è 
necessario inserire nell'unità a floppy 
disk il dischetto su cui bisogna operare. 
All'inizio verrà visualizzata una scher- 
mata di presentazione, nella quale, do- 
po l'apertura di alcuni file per comunica- 
re con il drive, verrà stampato il mes- 
saggio: "(P)roteggi o (S)proteggT, se- 
guito da un punto interrogativo. 

A questo punto è necessario scegliere 
se proteggere o sproteggere il dischetto 
inserito nel drive. Per comunicare al 
computer la propria scelta bisognerà poi 
premere l’iniziale dell'opzione scelta (P 
per proteggere e S per sproteggere). 

Fatto ciò il computer modificherà, in ba- 
se alla scelta dell'utente, il famoso byte 
2 del settore 0 della traccia 18. Quando 
avrà finito il computer chiuderà i file e fa- 
rà girare nuovamente il programma nel 
caso che l'utente desideri agire su altri 
dischetti. 

L’utente, per comodità, potrà marcare i 
dischetti protetti, scrivendo una P sull'e- 
tichetta e utilizzando per farlo una pen- 
na a inchiostro con punta morbida (cioè 
fatta come quella dei pennarelli), in mo- 
do da non danneggiare il dischetto. 
L’obiettivo finale di "DISK LOCK" è di 
proteggere dalla sovrascrittura dischet- 
ti di archivi o "backup", cioè copie di si- 
curezza di dischetti importanti. 

E' consigliabile non proteggere tutti i pro- 
pri dischetti, poiché in caso di necessi- 
tà sarà necessario ricorrere al program- 
ma "DISK LOCK" per poter salvare in 
essi altri programmi. A tutti coloro che 
non possiedono la cassetta allegata a 
questo numero di SUPER COMMODO- 
RE ricordiamo che è molto importante 
battere attentamente il programma, poi- 
ché esso contiene molti comandi com- 
plessi diretti al drive, nei quali anche 
una virgola o un segno di tabulazione er- 
rato può creare seri problemi e compro- 
mettere la sicurezza dei programmi con- 
tenuti nei dischetti protetti mediante l'uti- 
lity. 


Disk lock 

GOSUB10000 : rem 166 

.0 OPEN15, 8, 15 :PRINT#15, "IO" :OPEN2, 8,2,"# 
*• : rem 2 7 

20 PRINT#15, "U1 : " ; 2 ; 0 ; 18 ; 0 :GOSUB1000 

:rem 10 

30 PRINT#15, "B-P : " ; 2 ; 2 : rem 188 

40 PRINT" {HOME} { 17 GIU' } (P)ROTEGGI O (S) 
PROTEGGI" : rem 111 


45 GETA$ : IFA$="S"THENPRINT"S" :GOTO70 

:rem 221 

50 IFA$<>"P"THEN45 :rem 255 

55 PRINT"P" :rem 139 

60 PRINT#2,CHR$ (1) ; :GOSUB1000 -.GOTOIOO 

:rem 177 

70 PRINT#2,CHR$ (65) ; :GOSUB1000 : rem 232 

80 PRINT#15, "M-W" ;CHR$ (1) ;CHR$ (1) ;CHR$ (1) 
; CHR$ (65) : rem 241 

90 PRINT#15,"M-W";CHR$ (2) ;CHR$(7) ;CHR$(1) 
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;CHR$ (65) 


: rem 

249 

100 PRINT#15, "U2 : " 

; 2 ; 0 ; 1 8 ; 0 : GOSUB1 0 0 0 




: rem 

58 

110 CLOSE2 :PRINT#15, "10" :CLOSE15 :FORQ 

=1T0 

2 0 0 0 : NEXT : RUN 


: rem 

118 

1000 INPUT#15,EN,EM$,ET,ES 

: rem 

4 

1010 IFENTHENPRINT 

" { HOME } { 21 GIU ' } "EN" , " 

ET’V’ES: PRINT 

"{GIU' } "EM$ 

: rem 

210 

1020 RETURN 


: rem 

163 

10000 PRINT" {CLR}" 

:POKE53281, 1 

: rem 

30 

10010 PRINT" {RED} 

{ 1 SH U)| 3 

SH *} 


{ 1 SH 1} { 

1 SH U){ 1 SH 

1} 


{ 1 SH U){ 4 

SH *} { 1 SH 

IH 1 

SH U 

{ 1 SH 1} { 

1 SH U|{ 1 SH 

*} 


{ 1 SH I}" 


: rem 

245 

10020 PRINT" {RED} 

{ 1 SH -}{ 1 

SH U} 


{ 1 SH * } { 1 

SH I}{ 1 SH 

-} 


{ 3 SH -} { 1 

SH UH 3 SH 

*H 1 

SH K 

{ 2 SH -} { 1 

SH U}{ 1 SH 

K}{ 1 

SH U 

{ 1 SH K}{ 5 

SPAZI} {BLK} {RVS} 


{ 12 SPAZI}" 


: rem 

11 

10030 PRINT" {RED} 

{ 2 SH -} { 1 

SH -} 


{ 1 SH J}| 1 

SH 1} { 3 SH 

-}{ 1 

SH J 

{ 3 SH *} { 1 

SH 1} { 1 SH 

-H 1 

SH J 

{ 1 SH K}{ 1 

SH U}{ 1 SH 

K} 


{ 6 SPAZI} {BLK} {RVS} {CYN} [<8>] 

[< 2 +>] {BLK} { 8 SPAZI}" 

: rem 

63 

10040 PRINT" {RED} 

{ 2 SH -} { 1 

SH J) 


{ 1 SH I } { 3 

SH -} { 1 SH 

JH 3 

SH * 

{ 1 SH 1} { 2 

SH -} { 1 SH 

UH 1 

SH I 


{ 1 SH J}{ 1 SH I}{ 6 SPAZI} {BLK} 
{RVS } [<8>] [< 3 +>]{BLK}{ 8 SPAZI} 



>* 







: rem 


67 

10050 

PRINT" {RED} 

{ 1 

SH - 

H 

1 

SH J} 




{ 

2 

SH *} { 1 

SH 

K} { 

3 

SH 

-}{ 1 

SH 

U 


{ 

3 

SH *} { 1 

SH 

K} { 

3 

SH 

-H 1 

SH 

J 


{ 

1 

SH I } { 1 

SH 

J} { 

1 

SH 

1} 




{ 

5 

SPAZI} {BLK} {RVS} 

{ 

4 : 

SPAZI} 




{ 

1 

SH U}{ 2 

SH 

*}{ 

1 

SH 

I) 




{ 

4 

SPAZI}" 





: rem 

201 

10060 

PRINT" {RED) 

{ 1 

SH J} { 

4 

SH *} 




{ 

1 

SH K}{ 1 

SH 

J} { 

1 

SH 

K}{ 1 

SH 

J 


{ 

4 

SH *} { 1 

SH 

K) { 

1 

SH 

JH 1 

SH 

K 


{ 1 SH J}( 1 SH *} { 1 SH K} 

{ 5 SPAZI} {BLK} {RVS} { 4 SPAZI} 

{ 1 SH -}{ 1 SH U}{ 1 SH I)| 1 SH - 



{ 4 SPAZI}" : rem 135 

10070 PRINT" {RED) { 26 SPAZI } {BLK} {RVS } 

{ 4 SPAZI} { 1 SH -} { 1 SH J) 

{ 1 SH K}{ 1 SH -}{ 4 SPAZI}" 

: rem 214 

10080 PRINT" {RED} { 1 SH U}| 1 SH I } 

{ 4 SPAZI} { 1 SH U} { 4 SH *} 

{ 1 SH I}{ 1 SH U}{ 4 SH *}{ 1 SH I 

1 1 SH U}{ 1 SH I) ( 1 SH U) 

{ 1 SH *}{ 1 SH 1} {BLK} {RVS} 

{ 4 SPAZI} { 1 SH J}{ 2 SH *} 

{ 1 SH K}{ 4 SPAZI}" : rem 115 

10090 PRINT" {RED} { 2 SH -}{ 4 SPAZI} 

{ 1 SH -}{ 1 SH U}{ 2 SH *}{ 1 SH I 

{ 2 SH -}{ 1 SH U}{ 3 SH *}{ 1 SH K 

{ 2 SH -}{ 1 SH U|| 1 SH K}{ 1 SH U 

I 1 SH K) {BLK} {RVS} { 5 SPAZI} 

{ 1 SH U}{ 1 SH IH 5 SPAZI}" 

:rem 112 

10100 PRINT" {RED} { 2 SH -}{ 4 SPAZI) 

{ 2 SH -} { 2 SPAZI} { 4 SH -} 

{ 4 SPAZI) { 1 SH -} { 1 SH J} 

{ 1 SH K){ 1 SH U}{ 1 SH K} 

{ 2 SPAZI} {BLK} {RVS} { 5 SPAZI} 

{ 2 SH -}{ 5 SPAZI}" : rem 53 

10110 PRINT" {RED} { 2 SH -}{ 4 SPAZI} 

{ 2 SH -} { 2 SPAZI} { 4 SH -} 

{ 4 SPAZI} { 1 SH -} { 1 SH U) 

{ 1 SH I) { 1 SH J){ 1 SH 1} 

{ 2 SPAZI} {BLK} {RVS} { 5 SPAZI} 

{ 1 SH J}{ 1 SH K}{ 5 SPAZI}" 


:rem 13 


10120 

PRINT” 

{RED} 


{ 1 

SH - 

H 

1 

SH 

J) 




{ 

3 

SH 

*} { 

1 

SH 

1} { 

1 

SH 

-}{ 

1 

SH 

J 


{ 

2 

SH 

*} { 

1 

SH 

K} { 

2 

SH 

-H 

1 

SH 

J 


{ 

3 

SH 

*H 

1 

SH 

IH 

2 

SH 

-H 

1 

SH 

J 


{ 

1 

SH 

IH 

1 

SH 

J} { 

1 

SH 

I}" 














: rem 

240 

10130 

PRINT” 

{RED} 


{ 1 

SH J} { 

4 

SH 

m 




{ 

1 

SH 

K } { 

1 

SH 

JH 

4 

SH 

*}{ 

i 

SH 

K 


{ 

1 

SH 

J} { 

4 

SH 

*}{ 

1 

SH 

K}{ 

i 

SH 

J 


{ 

1 

SH 

K} { 


1 SH J){ 

1 

SH *} 





{ 

1 

SH 

K}" 






: rem 

139 


10140 PRINT" { 2 GIU'}" : rem 233 

10150 PRINT" { 24 SPAZI } {BLU} {RVS } { 1 SH U 
{ 3 SH *} { 1 SH I}" : rem 215 

10160 PRINT" { 24 SPAZI } {BLU} {RVS } { 1 SH - 

{ 3 SPAZI }{ 1 SH -}" : rem 180 

10170 PRINT" { 24 SPAZI } {BLU} {RVS }{ 1 SH - 
{ 1 SH U}{ 1 SH I) { 1 SH - } [<5>] 

{ 3 SPAZI} [<*>]{ 1 SH £}[<*>] 

{ 1 SH £}[<*>]{ 1 SH £}[<*>]" 

:rem 98 

10180 PRINT" { 24 SPAZI } {BLU} {RVS } { 1 SH - 
I 1 SH J}{ 1 SH K) { 1 SH -} [<5>] 

{ 9 SPAZI} {OFF} { 1 SH £}" 

:rem 30 

10190 PRINT" { 24 SPAZI } {BLU} {RVS } { 1 SH - 
{ 3 SPAZI} { 1 SH -}" : rem 183 

10200 PRINT" { 24 SPAZI } {BLU} {RVS } { 1 SH J 
{ 3 SH *}{ 1 SH K}" : rem 202 

10300 RETURN :rem 212 

: rem 0 

READY. : rem 173 
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5 

GOSUB10000 

: rem 

166 

10 

OPEN15, 8,15 :PRINT#15, 

"IO” :OPEN2, 8, 

2, M # 


•1 

: rem 

27 

20 

PRINT#15, "U1 : " ; 2 ; 0 ; 18 

; 0 : GOSUB1000 




: rem 

10 

30 

PRINT#15, "B-P ; " ; 2 ; 2 

: rem 

188 


40 PRINT" {HOME} { 14 GIU ' } {RVS }P {OFF JROTEG 
Gl 0 {RVS }S {OFF} PROTEGGI" : rem 226 
45 GETA$ : IFA$="S"THENPRINT"S" :GOTO70 

:rem 221 

50 IFA$<>"P"THEN45 : rem 255 

55 PRINT"P" : rem 139 

60 PRINT#2,CHR$ (1) ; :GOSUB1000 :GOTO100 

:rem 177 

70 PRINT#2, CHR$ (65) ; :GOSUB1000 :rem 232 

80 P RINT #15, "M-W" ; CHR$ ( 1 ) ;CHR$(1) ;CHR$(1) 
; CHR$ (65) : rem 241 

90 PRINT#15, "M-W";CHR$ (2) ;CHR$(7) ;CHR$(1) 
;CHR$(65) :rem 249 

100 PRINT#15, "U2 : ";2 ; 0 ; 18 ; 0 :GOSUB1000 

: rem 5 8 

110 CLOSE2 :PRINT#15, "IO" :CLOSE15 :FORQ=lTO 
2 0 0 0 : NEXT : RUN : rem 118 

1000 INPUT#15, EN, EM$, ET, ES : rem 4 

1010 IFENTHENPRINT" {HOME ) { 18 GIU' } "EN", " 
ET", "ES: PRINT" {GIU' }"EM$ : rem 159 

1020 RETURN : rem 163 

10000 PRINT" {CLR} " :POKE3687 9, 24 : rem 97 

10010 PRINT" { 14 SPAZI} {RVS} {BLK) 

{ 7 SPAZI}" : rem 101 

10020 PRINT "{ RVS} {RED} {DES} [<*>] [<K>] 
{OFF} [<K>] {RVS} [<8>] [<K>] 

{ 1 SH £} {OFF} { 1 SH £} 


{ 4 SPAZI} {RVS} {BLK} {OFF} {PUR} 
[<+>] {RVS} {BLK} { 4 SPAZI}" 

: rem 2 1 

10030 PRINT" {RVS} {RED} {DES} [<M>] [<K>] 

{OFF} [<K>] {RVS} { 2 SPAZI) [<K>] 
[<*>]{ 4 DES} {BLK} { 7 SPAZI}" 

:rem 33 

10040 PRINT" {RVS} {RED} {DES} { 2 SPAZI} 
[<K>] {OFF} [<K>] {RVS} [<T>] [<K>] 

{OFF} [<*>] {RVS} { 4 DES} {BLK} 

{ 2 SPAZI} { 1 SH U)( 1 SH *} 

{ 1 SH I}{ 2 SPAZI}" : rem 32 

10050 PRINT" { 14 SPAZI} {RVS} {BLK} 

{ 2 SPAZI} { 1 SH -} { 1 SH W} 

{ 1 SH -}{ 2 SPAZI}" : rem 250 

10060 PRINT" {RVS} {RED} { 2 DES} {DES}[<K>] 
{OFF} [<K>] {RVS} { 2 SPAZI} [<K>] 

{ 1 SH £} {OFF} { 1 SH £} 

{ 2 SPAZI} {RVS} {BLK} { 2 SPAZI} 

{ 1 SH J) { 1 SH *} { 1 SH K} 

{ 2 SPAZI}" : rem 175 

10070 PRINT" {RVS} {RED} { 2 DES} {DES}[<K>] 
{ 1 SH -} {OFF} [<K>] {RVS} { 1 SH * } 
[<K>] [<*>]{ 2 DES} {BLK} { 3 SPAZI} 

[<I>] { 3 SPAZI}" : rem 189 

10080 PRINT "{RVS} {RED} { 2 DES}{ 2 SPAZI} 
[<K>] {OFF} [<K>] {RVS) { 2 SPAZI} 

[<K>] {OFF} {<*>] {RVS} { 2 DES} {BLK} 

{ 3 SPAZI} {DES} { 3 SPAZI}" : rem 35 

10090 PRINT" { 14 SPAZI) {RVS} {BLK} 

{ 3 SPAZI) {OFF} [<I>] {RVS} 

{ 3 SPAZI}" : rem 179 

10100 PRINT" {HOME}"; : rem 17 

10300 RETURN ; rem 212 


SUPERC0MM0MRE 

CEDOLA DI ORDINAZIONE RIVISTE ARRETRATE CON CASSETTA ALLEGATA 
da compilare e spedire in busta chiusa a 

Gruppo Editoriale Jackson - Via Rosolimi, 12 - 20124 Milano - Tel. 6880951/2/3/4/5 

Vogliate inviarmi i numeri 

di SUPERCOMMODRE con cassetta Anno 

Al prezzo di L. 15.000 cad. 

□ Contanti allegati □ Assegno allegato n® 


□ Ho spedito Timporto a mezzo vaglia postale 

□ Ho versato l’importo sul ccp. n° 11666203 intestato Gruppo Editoriale Jackson - 
Milano 


BUONO D’ORDINE PER RIVISTE ARRETRATE 
Anche se l’ordine riguardasse la sola cassetta, questa 
verrà comunque inviata insieme alla rivista al prezzo in- 
dicato. 

Nome 

Cognome 

Via 

Città C.A.P Prov 

Se richiesta fattura: 

Cod. F. e P. Iva 

Data 

Firma 

Per i residenti all’estero - pagamento anticipato (vaglia o versamento su ns. ccp) 




□ Pagherò in contrassegno al postino al ricevimento 




di P. Opkins 

trad. e adatt. di S. Albarelli 


Difendete la vostra città dal ne- 
mico venuto dallo spazio, in que- 
sto gioco per CI 6 e Plus/4. 

Anno 2037. 

Delle sonde in orbita intorno alla terra 
hanno percepito l'arrivo di una misterio- 
sa astronave. 

Coscienti del pericolo, le autorità della 


vostra città hanno fatto costruire un'im- 
mensa cupola sopra le abitazioni e l’han- 
no coperta con uno strato di terra alto 8 
metri circa. 

L'astronave nemica, giunta sopra la vo- 
stra città, comincia a bombardare la cu- 
pola di terra con gocce di un potentissi- 
mo acido, ognuna delle quali può distrug- 
gere una zolla di terreno. 

A voi il compito di rimpiazzare, mediante 
una ruspa, la terra distrutta dall'acido 
prima che la città risulti scoperta e vul- 
nerabile. 


Dovete stare però molto attenti, poiché 
il potente acido é in grado di far esplode- 
re anche la vostra ruspa. Per muoverla 
usate i tasti " "(destra) e ” "(sinistra) e 
per lasciar cadere una zolla di terra pre- 
mete la barra spaziatrice. 

Ogni zolla che rimpiazzerete vi darà 
100 punti. 

Avete a disposizione tre ruspe per difen- 
dere la città. 

Il gioco termina se perdete le tre ruspe, 
se cadete sulla città o se l'acido la colpi- 
sce Buon divertimento!! 
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10 

REM SALTATORE 

: rem 

244 

20 

HS=0 : VOL8 > 

: rem 

205 

30 

COLORO ,4,5: COLOR4 ,2,5 

: rem 

127 

40 

PRINT" {CLR}{ 9 GIU' } {RED} {RVS}"; 




: rem 

202 

50 

F0RI=1T08 : PRINT" { 40 SPAZI}" 

; : NEXT 




: rem 

157 

60 

PRINT” {OFF} { 2 GIU ' } "TAB ( 8 ) " 

(YEL} 



{ 1 SH Y} {GIU' } {SIN}+{GIU' } {SIN} 



{ 1 SH Y} {GIU' } {SIN} {RVS} " 

: rem 

38 


70 PRINT" {SU} {PUR} [< 3 I>]{RVS( [<Y>] 
[<T>] {OEF} {DES({ 1 SH U}{ 1 SH 1} 
{BLK} [<I>] {PUR} [<I>] {YEL} { . 1 SH N } 

{ 1 SH M) {RED} [<I>] {PUR} { 1 SH 0} 

{ 1 SH P} { BLK } [< 3 I>] ” ; : rem 87 

80 PRINT" {PUR} [< 3 I>]{RVS} [<Y>] [<T>] 
{OFF} { DES } { 1 SH U}{ 1 SH I}{BLK} 
[<I>] {PUR} [<I>] {YEL} { 1 SH N}{ 1 SH M} 



{RED} [<I>] {PUR} { 1 SH 0}{ 

1 

SH P} 



{BLK} [<I>] " ; 


: rem 

131 

90 

PRINT" {RVS }{ 40 SPAZI}"; 


: rem 

135 

100 

PRINT" {RVS} { 40 SPAZI}"; 


: rem 

175 

110 

PRINT" { 3 SU} { 4 DES} {OFF} {RED} [<I>] 


{ 12 DES} [<I>] " 


: rem 

216 

120 

DU=3 : S=0 


: rem 

150 

130 

AL=1 : A$=" {RED } {RVS } { 1 

SH 

C} {BLU} 



{OFF } { 1 SH Q} {RED} {RVS} [< 

*>] {OFF} 



{GIU ' } { 5 SIN} [<K>] {YEL} [<T>] {RED} 


{RVS} [<K>] {OFF} " 


: rem 

12 

140 

P=3387 


: rem 

247 

150 

B=0 


: rem 

69 

160 

K=64 :GOTO220 


: rem 

144 

170 

GETGS 


: rem 

227 

180 

IFG$=""THENK=64 


: rem 

53 

190 

IFG$="I"THENK=12 


: rem 

120 

200 

IFG$="P "THENK=2 0 


: rem 

118 

210 

IFG$=" "THEN450 


: rem 

214 

220 

D= (K=12) — (K=20) *2+P : IFD<3351THEN310 


: rem 104 

230 IFPEEK (D) =160THEND=D-40 : rem 55 

240 IFD>PTHEND=D- 1 : rem 73 

250 POKEP , 32 :POKEP-41, 32 :POKEP-39, 32 :POKE 
P+l, 32 :POKEP-40, 32 :rem 231 

260 POKEP— 81, 32 :POKEP-80, 32 :POKEP-79, 32 :P 
OKEP-121, 32 :POKEP-119, 32 :P=D:rem 44 
270 POKEP, 81 :POKEP+l, 81 : POKEP-41, 233 : POKE 
P— 40, 98 :POKEP-39, 248 :rem 105 

280 IFPEEK (P+40 ) 032ANDPEEK (P + 40) O160THE 



N520 

: rem 

92 

290 

IFPEEK (P+40) =160THEN310 

: rem 

22 

300 

D=P+40:GOTO250 

: rem 

253 

310 

AL=AL+INT (RND (1) *3-1) : IFALC0THENAL 

,=0 



: rem 

94 

320 

IF AL> 1 8 THENAL= 1 8 

: rem 

186 

330 

PRINT" { HOME } "TAB (AL) A$ 

: rem 

148 

340 

IFB>0THEN370 

: rem 

159 


350 IFRND ( 1) < . 8THEN4 40 : rem 246 
360 B=3154+ALv : rem 157 
370 POKEB, 32 :B=B+40 : IFPEEK (B) =32THEN430 




: rem 

15 

380 

IFPEEK (B) O160THEN410 

: rem 

183 

390 

POKEB, 32 

: rem 

158 

400 

B=0 -.GOTO4 40 

: rem 

78 

410 

IFB>3711THEN520 

: rem 

54 

420 

GOTO540 

: rem 

10,4 

430 

POKEB, 46 

: rem 

158 

440 

GOTO170 

: rem 

105 

450 

DI=P— 1 : IFPEEK (DI+40 ) <>1 60THENS=S+5 



: rem 

239 

460 

POKEP-41, 95 

: rem 

69 

470 

POKEP-41, 233 :GOTO500 

: rem 

120 

480 

S=S+1 : POKEDI , 160 

: rem 

148 

490 

FORI=lTO10 :NEXT 

: rem 

184 

500 

IFPEEK (DI+40) =1600RDI>3671THEN310 




: rem 

138 

510 

POKEDI, 32 :DI=DI+40 :GOTO480 

: rem 

18 

520 

GOTO530 

: rem 

104 

530 

GOTO610 

: rem 

104 

540 

REM SUONO 

: rem 

17 

550 

SOUND2, 55, 5 : POKEB- 1,87: POKEB , 121: POKE 


B+1,78 

: rem 

253 

560 

IFDU=1THEN610 

: rem 

247 

570 

POKEB, 32 :POKEB-l, 32 : POKEB+1, 32 




: rem 

208 

580 

POKEP , 32 : POKEP+1 , 32 : POKEP- 

41, 32: POKEP 


-40, 32 :POKEP-39, 32 

: rem 

237 

590 

PRINT" { HOME }"TAB (AL+1) "{ 4 

SPAZI} 



{GIU'H 3 SIN } { 3 SPAZI}" 

: rem 

191 

600 

DU=DU-l:GOTO140 

: rem 

107 

610 

FORI=lTO10 0 0 : NEXT : PRINT" { HOME } 



{ 2 GIU' } { BLK} PUNTI "S 

: rem 

197 

620 

IFS>HSTHENHS=S 

: rem 

173 

630 

PRINT" {BLU} REC. "HS 

: rem 

44 

640 

PRINT" {RED} GIOCHI ANCORA?" 

: POKE198 , 0 



:rem 

148 

650 

GETAS : IFA$="S"THEN40 

: rem 

117 

660 

IFA$O"N"THEN650 

: rem 

102 

670 

PRINT :PRINT" {BLU} {YEL} {GRN} {PUR} 

{ 4 SPAZI }E' TROPPO DIFFICILE PER 

TE 


! O t ! « 

: rem 

?7 
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Ecco una simpatica e coloratis- 
sima versione del baraccone del 
tiro a segno, nella quale potrete 
cimentarvi e mettere alla prova 
la vostra mira e la vostra velo- 
cità. 


Questo gioco è nato dalle memorie dei 
bei vecchi tempi, quando uno dei pochi 


divertimenti era quello di andare al Luna 
Park e giocare al baraccone del tiro a 
segno. 

Ah! Il Luna Park di una volta, quello dei 
cani parlanti e delle rane danzanti, dei 
coni gelati da 10 lire, dei palloncini, dei 
pagliacci. Ma la vera attrazione era il ba- 
raccone del tiro a segno. "Fatemi vede- 
re come tirate, ragazzi" urlava l'uomo 
del baraccone. Naturalmente, le cartuc- 


ce del fucile erano caricate con poca 
polvere, tanta quanta ne serviva per lan- 
ciare il proiettile verso il bersaglio, e per 
sicurezza lo stesso era fissato salda- 
mente per terra, tanto che ci sarebbe 
voluto un cannone per rovesciarlo. 

Ma ora i tempi sono cambiati, e i giochi 
sono divenuti computerizzati. 

Niente più fucili e bersagli a prova di 
bomba. Nel tiro a segno qui presentato 
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puoi sparare con un fucile laser. 

Per far partire il doppio raggio laser ba- 
sta premere la barra spazio. I bersagli 
sono in movimento e bisogna cercare di 
colpirli quando si trovano sotto il qua- 
drante del mirino. 

Si ha a disposizione un certo tempo e 
500 munizioni per fare più punti possibi- 
li, e bisogna cercare di non colpire gli 
spazi vuoti tra un bersaglio e l’altro, al- 
trimenti il punteggio decresce. Il gioco 
termina quando il tempo é scaduto o le 
munizioni sono terminate. 


Il programma 

Il programma è stato diviso in due parti 
perchè potesse girare anche su VIC ine- 
spanso: la prima sezione crea i caratteri 
programmati e carica la seconda sezio- 
ne automaticamente. 

La seconda sezione è il gioco vero e 
proprio. 

Il caricamento avviene da cassetta, ma 
chi volesse portare su disco il gioco de- 
ve riscrivere la linea 50 nel seguente 
modo: 


50 LOAD"nome prg”,8 


Note 

Nei due listati appaiono a volte dei punti 
dove dovrebbero esserci degli 0. 

Questo non è un errore, ma è un siste- 
ma per velocizzare l'esecuzione del pro- 
gramma, perchè il punto dà come valore 
"0", ma viene compreso più velocemen- 
te dal calcolatore rispetto alla cifra. 

Buon divertimento! 


10 POKE51, 0 :POKE52, 28 :POKE55, 0 :POKE56, 28 : 

CLR:GOSUB150 : rem 188 

2 0 FORM=2 56T02 7 4 : READD : POKEM, D : A=A+D : NEXT 

: rem 8 1 

30 SYS256 : rem 255 

4 0 FORM=7 432T07551 : READD : A=A+D : POKEM, D : NE 
XT :rem 187 

45 IFA012 32 6THENPRINT" {RVS } ERRORE NEI DA 
TI”: END : rem 161 

50 POKE198, 5 :POKE631, 78 :POKE632, 69:POKE63 
3, 87 :POKE634, 13 :POKE635, 131 :END 

:rem 227 

60 DATAI 62, . , 189, . , 128, 157, . , 28, 189, . , 129 
,157, .,29,232,208,241, 96, . : rem 6 

70 DATA16, 2 4, 20, 2 6, 2 1,251, 2 45, 255, 

,.,255,255,255 :rem 152 

80 DATA8, 24, 40, 88, 168, 216, 175, 255, 12 6, 102 
,90,90,90,90,102,126 :rem 245 

90 DATA90 , 60, 90,126, 102, 36, 60, 24, 160, 160, 
128,128,160,179,128,255 :rem 131 

100 DATA5, 5, 1, 1, 5, 205, 1,255, 255, 128, 17 9,1 
60,128,128,160, 160 : rem 119 

110 D AT A2 55,1,205,1,1,1,5,5,1,2, .,8,16, ., 
64,128 :rem 4 

120 DATA128 , 64, . , 16, 8, . , 2, 1, 40, 129, 36, 18, 
64, 10, 64, 17 : rem 19 

130 DATA153, 51,102,204,153,51, 102,204, 90, 

. , 60, 90, 90, 60, . , 90 :rem 94 

140 DATAI 02 , 66, 24, 66, 66, 24, 66,102 

:rem 133 

150 POKE36869, 242 :POKE36879, 125:PRINT" 
{CLR} {GIU* } "SPC (2) ” { RED } {RVS} 

{ 18 SPAZI} {OFF}” : rem 243 

160 PRINTSPC(2) " {RVS} { 2 SPAZI} TIRO A SEG 
NO { 4 SPAZI} {OFF}” :PRINTSPC(2) ”{RVS} 

{ 18 SPAZI} {OFF}” : rem 136 

170 PRINT” { 2 GIU'}” : rem 139 

180 PRINTSPC ( 3 ) ” { BLK } CARICAMENTO DATI” 

:rem 172 

190 PRINT” {GIU* } { 1 SH I}L PROGRAMMA SI C 
ARICA{ 3 SPAZI} AUTOMATICAMENTE! {SU} 
{YEL}”: RETURN : rem 65 

: rem 0 

READY. : rem 173 


10 POKE51, . :POKE52, 28 :POKE55, . :POKE56,28: 

POKE3687 9, 15 :PRINT” {CLR} ” : rem 247 

20 TS=700 : SH=500 : R=28 : T=10100 :DEFFNS (A) = ( 
TS+HI+SH- (5*R) ) :GOTO410 : rem 228 

30 POKE36869, 255 :POKE36874, 128 :POKE36879, 
110: C=3 0 7 2 0 : TX=7 9 1 1 : A= . : rem 111 

4 0 FORN=7 966 TO 8053: P OKEN+C , 5 : NEXT : FORN= 8 0 
10T08075 :POKEN+C, 4 :NEXT : rem 14 

50 PRINT” {HOME } {WHT} { 2 SPAZI}TIRO A SEGN 

O” : PRINT” {GIU * } ” ;N$ : rem 18 

60 PRINT” { 5 GIU 1 }"SPC(9) ” ({ 2 SPAZI}) 

{ 3 GIU 1 }”SPC(18) ”&{ 2 SPAZI} 1 ” 

: rem 245 

65 F0RN=1T05 : PRINT: NEXT : rem 38 

70 PRINT” {YEL} ! ” ; : F0RN=1T018 : PRINTCHR$ (3 
4) ; : NEXT : PRINT”#" : rem 125 

80 PRINT" { 2 GIU 1 } {YEL} TEMPO { 4 SPAZI }PUN 
TI { 2 SPAZI} TIRI ” : rem 70 

90 GOSUB550 : IFFBGOTO120 : rem 160 

100 IFP=32GOTO120 : rem 222 

110 U=V : GOTO280 : rem 135 

120 SH=SH-2 :POKE36878, 15 : S=FNS ( . ) :IFSH<.G 
OTO380 :rem 66 

130 F0RN=1T08 :POKE (8077- (N*21) ) ,42:POKE(8 
096- (N*23) ) ,43:POKE36876, (16*N)+127 

:rem 164 

140 NEXT : POKE3687 6, 128 : F0RN=1T08 : rem 202 
150 POKE (8077-(N*21) ) , 32 :POKE <8096- (N*23)' 
) , 32 :NEXT : POKE36878, . :GOTO180 


: rem 171 


160 


170 

180 

190 

200 

210 

220 

225 

230 

240 


POKE36878, 15 :POKE36874, . :FORN=lTOt FO 
RM=200T0220+N : POKE36876, M:NEXT :NEX1 



: rem 

18 ' 

POKE36876, 128 :GOTO90 

: rem 

120 

P=PEEK (TX) : IFP=32GOTO240 

: rem 

210 

IFP=36ORP=37GOTO650 

: rem 

139 

IFP=46ORP=47GOTO650 

: rem 

133 

IFP=44GOTO240 

: rem 

230 

B$=LEFT$ (A$, 14) :C$=CHR$ (32) : 

D$=RIGHT$ 

(A$, 15) : A$=B$+C$+D$ :R=R-1 

: rem 

11 

IFR= . 0RR=-1G0T03 60 

: rem 

69 

F0RN=1T015:P0KE36879, 42:NEXT 

1 : POKE3687 

9, 110 :GOTO90 

: rem 

218 

IFA=.GOTO260 

: rem 

162 
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250 A$=E$:A=. :GOTO270 :rem 148 

260 A$=F$:A=1 : rem 141 

270 R=28 : S=FNS ( . ) :GOTO160 :rem 204 

280 B$=RIGHT$ (A$, 28) :POKE36874, 128 :POKE36 
874, 135 :POKE36878, . :D$=LEFT$ (A$,2) 

: rem 182 

290 A$=B$+D$ : PRINT" { HOME } " : F0RN=1T09 : PRIN 
T :NEXT : PRINTA$ : T=T+1 : IFT>10350GOT0340 

: rem 2 4 

300 S=FNS ( . ) : S$=" " : IFS<1000THENS$=S$+" " 

: rem 157 


310 PRINTSPC (176) " {GRN} " ; T; S$ ; S ; " ";SH" 

{ WHT } " : rem 197 

320 U=U-1 : IFU= .GOTO90 : rem 5 

330 IFU>0GOTO2 8 0 : rem 187 

340 GOSUB400 : PRINT" { 3 GIU' } {BLK) "SPC (4) " 
{ 1 SH T } EMPO { 1 SH F } INITO ! !" : PRINT 
"{ 2 GIU'H 1 SH P JUNTEGGIO "; 


: rem 5 6 

350 PRINTFNS(.) : PRINT" { 2 GIU' } {PUR} 

{ 1 SH P}UOI RITENTARE " :E=.:G 

OTO560 :rem 39 

360 GOSUB400 : S=FNS ( . ) +1000 :PRINT" 

{ 3 GIU'HBLKH 2 SPAZI} { 1 SH B}UON 
DIVERTIMENTO" : rem 229 

365 PRINT" { 2 GIU'H 1 SH PONTEGGIO 

"; :rem 228 

370 PRINTS :PRINT" {GIU' } {PUR} { 1 SH B}ONUS 
=1000" :PRINT" { 2 GIU'} {RED} { 1 SH V}I 
NCI UN ' ORSACCHIOTTO ! " : E=1 : GOTO560 

:rem 241 

380 GOSUB400 :PRINT" { 3 GIU' } {BLK} "SPC (4) " 
{ 1 SH C } OLP I { 1 SH F } INITI ! !" : PRINT 

"{ 2 GIU'H 1 SH P JUNTEGGIO 

: rem 4 0 

390 PRINTFNS ( . ) :PRINT" {GIU' } {PUR} { 1 SH P 

UOI { 1 SH R} I PROVARE ":E=.:GO 

TO560 :rem 166 

400 POKE36869, 242 :POKE3687 9, 122 : PRINT" 

{CLR}": RETURN : rem 138 

410 POKE36869, 242 : PRINT" {CLR} { 2 GIU'} 

{YEL}{ 2 SPAZI} {RVS}{ 18 SPAZIHOFF}" 
: PRINT" { 2 SPAZI} {RVS}{ 3 SPAZI }TIRO 
A SEGNO { 3 SPAZI} {OFF}" : rem 68 


420 

PRINT" { 2 SPAZI} {RVS }{ 18 SPAZIHOFF) 


{GIU' } " : PRINT" {GIU* }" 

: rem 

56 

430 

PRINT" { 2 GIU'} {PUR} { 

3 SPAZI} 



{ 1 SH SJCEGLI IL LIVELLO { GIU ' } " : 

PRIN 


T"1 { 1 SH F } ACILE -6 

DIFFICILE.” 




: rem 

138 

440 

GETA$ : GOSUB660 

: rem 

51 

450 

V=VAL(A$) : IFV<lORV>6THEN440 : rem 

131 

460 

PRINT" {GIU' } {YEL} { 3 

SPAZI }”;V: PRINT” 


{ 2 GIU' } {WHT}** { 1 

SH P} REMERE 



{ 1 SH U }N { 1 SH T } ASTO **":rem 

67 

470 

GOSUB550 : IFFBGOTO510 

: rem 

213 

480 

GOSUB660 

: rem 

184 

490 

IFP=32GOTO510 

: rem 

237 

500 

GETA$ : IFA$=" "GOT04 7 0 

: rem 

93 


510 A$=" { PUR} {CYN}$$. { YEL} $$ . {GRN}$$ 

{ BLK } $ $ . {PUR} $$ . { GRN } $ $ . {WHT}$$" 

:rem 160 


520 F$=" {PUR} / {CYN} %%/ {YEL} %%/ {GRN} %% 
{ BLK } % % / { PUR } % % / { GRN } % % / { WHT } % % " 


530 


540 

550 

560 


570 

580 

590 

600 

610 

620 

630 

640 

650 


660 

670 


:rem 232 

N$=" { GRN } — {PUR} {CYN} {YEL} 

{CYN} {PUR} {GRN}— {PUR}" 

: rem 206 

PRINT" {CLR} " : E$=A$ : GOTO30 : rem 24 
POKE37137, 62 :FB=- ( (PEEK (37137) AND32) = 
.) :P=PEEK( 197) : RETURN : rem 70 

PRINT" { 3 GIU ' } { WHT } " SPC ( 4 ) " { RVS } 

{ 1 SH A INCORA (S/{ 1 SH N}) ?" 


GETA$ : IFA$=" "THEN570 
IFA$="S"GOTO620 
IFA$="N"GOTO610 
GOTO570 


: rem 
: rem 
: rem 
: rem 
: rem 


121 

91 

54 

49 

107 


POKE368 69, 240 :POKE36879, 27 : PRINT" 

{ CLR } " : END : rem 86 
IFE=1THENHI=S-1000 : rem 24 
IFE= . THENHI= . : rem 3 
POKE36879, 15 :GOTO20 : rem 65 
F0RN=1T02 0 : POKETX, 44 :POKETX-l, 44 :POKE 
TX+C, 22 :POKETX-l+C, 2 2 : NEXT : GOT02 1 0 


: rem 246 

FORN=384 69T03847 6 : POKEN, INT (7*RND (1) + 
1) :NEXT : rem 134 

F0RN=38484T038478STEP-1 :POKEN, INT (7*R 
ND(1)+1) : NEXT: RETURN : rem 58 
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Il programma che viene qui pre- 
sentato vuole farvi vivere un' 
avventura con il vostro compu- 
ter. Ma non si tratta di un' "a- 
dventure" nel senso tradiziona- 
le, però pensiamo possa ugual- 
mente affascinarvi. 

Ecco corri' è la situazione: l’ignaro 
giocatore viene informato dal suo amico 
elettronico dell' esistenza di un Harem 
sito in un luogo romito nel bel mezzo di 
un deserto. 

Gli viene inoltre detto che il sultano del 
luogo, Abdullah "el" Khativ (detto A- 
bdul), sorveglia con i suoi guerrieri quel- 
la che è l’unica via percorribile per arriva- 
re all'harem. 

Fatte tali premesse il giocatore, dopo 
essersi procurato un cammello, può ini- 
ziare l'avventura. Il quadrupede può es- 
sere mosso atre velocità: 

1) la più lenta: il sultano si avvicina, 
l'animale recupera un pò di energie. 

2) velocità media:il sultano non si avvi- 
cina, anzi, in genere, perde qualche 
chilometro; 

3) si procede a ritmo serrato: il sultano è 
distanziato, ma, naturalmente, il cam- 
mello consuma parecchio. 

Ogni volta la distanza daH'harem si ridu- 
ce in maniera proporzionale alla veloci- 
tà. Ma è tutto qui? 

No, di certo; vediamo quello che può 
succedere attraverso l'analisi del pro- 
gramma. 


Il blocco principale 

Quanto detto finora è racchiuso nelle li- 




nee dalla 10 alla 195: la variabile N con- 
tiene il numero che farà saltare alle va- 
rie subroutine . 

In seguito viene richiesta la velocità e 
quindi aggiornati, in funzione di questa, 
i valori delle tre variabili C, S, D, cioè 
energia rimasta al cammello, distanza 
dal sultano che insegue, distanza dalla 
meta. Tali variabili vengono inizializzate 
all'inizio del programma con i seguenti 


* * ^ 


valori: 

C=100, s =20, D=250, V=1. 

Quest'ultima variabile significa che il 
prode avventuriero parte con un an- 
tidoto da usare contro ospiti sgraditi; 
purtroppo, per non appesantire il cam- 
mello, non potrà mai avere più di due 
antidoti. L' elaborazione vera e propria 
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avviene tra le linee 115 e 195: è qui in- 
fatti che viene eseguita la maggior parte 
dei controlli, sia dal punto di vista dell’e- 
sattezza della battitura che, soprattut- 
to, per le tre variabili fondamentali 
C,S,D. 

E importante sottolineare che prima si 
controlla se l'harem è stato raggiunto, 
poi se il cammello ha speso tutte le ener- 
gie e infine se il sultano ha annullato 
completamente il distacco. 

Questa scelta è stata fatta per avvan- 
taggiare il giocatore nel caso si trovi a 
pochi chilometri dalla meta, ma col cam- 
mello ridotto all' osso o col respiro del 
sultano sul collo. 


Le routine 

Ovvero ciò che potrebbe accadervi: in 
un deserto come si deve ci si aspetta di 
trovare un' oasi in cui rifocillare sè stes- 
si e soprattutto il cammello, ma nel no- 
stro caso bisogna fare attenzione al sul- 
tano e ai suoi guerrieri che incalzano. 

Le variabili che cambieranno sono la C e 
la S: ovviamente la C non può superare 
il 1 00 (non abbiamo comperato un super- 
cammello) e questo confronto viene 
fatto ogni volta che C è incrementata. 
Idem dicasi per la S e la D, che quando 
vengono decrementate subiscono sem- 
pre il controllo per la sconfitta o la vit- 


toria. 

Ma nel deserto c’è anche gente ostile 
ed è quindi facile essere catturati dai 
predoni: in tal caso o si paga o si tenta 
di evadere. Entrambe le volte può andar 
bene o male e ciò è determinato dal valo- 
re della variabile N. 

Pagare il riscatto implica un avvicina- 
mento del sultano, mentre fuggire porta 
a una perdita di energie del cammello. Di 
volta in volta si scelga la soluzione mi- 
gliore. 

Le altre avventure che vi possono capi- 
tare durante la marcia di avvicinamento 
verso la meta sono le seguenti: lungo la 
strada ci sono dei bivii e dovete sceglie- 
re la direzione giusta altrimenti perdere- 
te terreno. 

Molto sgradito è l'incontro con uno scor- 
pione velenoso e se non avete alcun an- 
tidoto, ... bèh sarà già tanto se sopravvi- 
verete! 

Grazie al cielo è possibile incontrare il 
buon Habib, che vende un antidoto con- 
tro ogni veleno. Però, se lo si vuole ac- 
quistare (cosa che in generale consiglia- 
mo), bisogna fermarsi, permettendo co- 
sì al sultano di guadagnare terreno. 

Un altro simpatico personaggio è Musta- 
fà, che si diverte a scorazzàre con il 
suo tappeto volante e non mancherà di 
darvi un passaggio.Questo farà ri- 
posare il cammello, che recupererà un 
pò di energie 


Un altro imprevisto è la tempesta di sab- 
bia che allontana il prode avventuriero 
dalla meta ma fa perdere qualche chilo- 
metro anche al sultano e ai suoi guerrier- 
riche vi inseguono. 

Attenzione alle nove urne: siete rimasti 
improvvisamente bloccati e l'unico 
modo per riprendere il cammino è trova- 
re una delle tre chiavi collocate all'in- 
terno delle nove urne. 

Ma insieme a una chiave c'è un serpen- 
te velenoso che, se siete sprovvisti del- 
l'antidoto, vi impedisce di continuare. Al- 
tro possibile imprevisto è il miraggio 
(che è facile avere): questo provocherà 
solo un allontanamento dall'harem. 
Fortunatamente anche il sultano è un uo- 
mo e se per caso trova dell'uva sultani- 
na lungo la via, non mancherà di man- 
giarne un pò, perdendo quindi tempo. 

E per finire, siccome il deserto è insidio- 
so per tutti, potrebbe darsi che il cam- 
mello regale non si avveda di qualche 
sasso, facendo così cadere il presun- 
tuoso Abdul. 

Come vedete, ve ne possono capitare 
di tutti i colori e la sequenza dei vari epi- 
sodi non è assolutamente prevedibile a 
priori. La probabilità di capitare in alcu- 
ne routine è maggiore rispetto ad altre: 
si è voluto privilegiare le avventure più 
simpatiche o vantaggiose (o più rischio- 
se) per il giocatore. 


10 C=100 :D=250 : S=2 0 : rem 240 

20 V=1 : rem 38 

30 SCNCLR : PRINT : PRINT "SEI VENUTO A SAPERE 
DELL* ESISTENZA DI : rem 131 

40 PRINT"UN{ BLU} MAGNIFICO HAREM {BLK} CHE 
FINORA NON HA AVUTO" : rem 19 

45 PRINT"ALTRI PADRONI SE NON IL TERRIBIL 
E { RED} ABDUL { BLK }, SULTANO DELLA REGION 
E" : rem 7 8 

50 N=INT (38*RND (0) ) +1 : rem 130 

60 PRINT" TU HAI LA POSS IBILITA 1 DI INPADRO 
NIRTENE" 4 : rem 8 8 

70 PRINT :PRINT"HAI UN CAMMELLO PER RAGGIU 
NGERE LA META" : rem 137 

75 PRINT"MA DEVI STARE ATTENTO A NON SFIA 
NCARLO . " : rem 2 05 

8 0 PRINT" SCEGLI LA VELOCITA 1 ADEGUATA (1-2 


-3) ..." : rem 2 

85 FORI=0TO399 :NEXTI : rem 20 

90 PRINT"... E CHE { CYN } ALLAH { BLK } TE LA M 
ANDI BUONA !!!": PRINT : PRINT : PRINT 


:rem 38 

100 GETKEYZ3 : rem 216 

105 PRINT"ORA IL CAMMELLO E 1 AL 100% DELLA 
FORMA, " : rem 218 

107 PRINT"L f HAREM DISTA 250 KM ED IL SULT 

ANO E' A" : rem 222 

109 PRINT"2 0 KM DA TE" : GOSUB2050 : rem 4 

110 PRINT"PUOI FINALMENTE PARTIRE."; 


115 

120 

130 

140 

150 

155 

160 

165 

168 

170 

175 

180 

182 

185 

188 

190 


195 

200 


: rem 3 

PRINT : PRINT "VELOCITA ' = " ; : rem 37 

GETKEYZ$ : IFASC (Z$) <49 OR ASC(Z$)>51 T 
HEN12 0 : rem 159 

X=VAL(Z$) : PRINTX : N=N+X+INT ( 4 *RND ( 0 ) ) 


:rem 186 

IFN>20THENN=N-20 :GOTO140 : rem 177 

IFX=3THENC=C-10-INT (5*RND ( 0 ) ) 

:rem 154 

IFX=2THENC=C-5-INT (3*RND (0) ) : rem 112 
IFX=lTHENC=C-f-2 + INT (2*RND (0) ) : IF0100T 
HENC=100 : rem 12 6 

D=D-4*X-INT (3*RND (0) ) : IFDC1THEN2 60 0 


: rem 22 4 

IFC<1THEN2300 : rem 210 

S=S+3* (X-2) +INT (2*RND (0) ) : rem 51 

IFSC1THEN2530 : rem 229 

SCNCLR: PRINT "L'HAREM DISTA {BLU} " ;D; " 
{BLK} CHILOMETRI" : rem 91 

PRINT "IL SULTANO E ' A{ RED } " ; S ; " { BLK } K 
M DI DISTANZA" : rem 16 

PRINT"ED HAI IL{PUR} " ;C; " {BLK} % DEL T 
UO CAMMELLO" : PRINT: PRINT : rem 82 

FORI=0TO800 :NEXTI : rem 59 

ONNGOSUB200, 300, 400, 470, 600,700,750,8 
00, 900,300,200,470,550,700, 600,999,20 
0,900,700,500 :rem 32 

GOT0115 : rem 111 

REM OASI • rem 162 
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210 PRINT”HAI TROVATO UN'OASI;VUOI BERE ? 

:rem 113 

220 GETKEY Z$ : rem 219 

230 IFZ$<>"N" AND Z$<>"S" THEN 220 

:rem 211 

240 PRINTZS : IFZ$=”N"THEN RETURN : rem 198 
250 C=C+11:IFC>100THENC=100 : rem 2 

260 S=S-6 : IFSC1THEN2530 : rem 96 

270 PRINT"ORA HAI IL ( PUR } " ; C ; " ( BLK } % DEL 
TUO CAMMELLO, MA IL{ 2 SPAZI } SULTANO E 



1 A { RED } ” ; S ; ” 

{BLK} 

KM” 

: rem 

139 

280 

RETURN 



: rem 

122 

300 

REM PREDONI 



: rem 

136 

305 

PRINT "AHIMÈ* 

! SEI 

STATO 

CATTURATO 

DAI 


PREDONI DEL 

DESERTO.” 

: rem 

48 


310 PRINT"HAI DUE POSSIBILITÀ' :PAGHI IL R 
ISCATTO O TENTI LA FUGA ?{ 13 SPAZI} 
<R/F>" : rem 35 

315 IFS>2THENS=S-2 : ELSEIFS>1THENS=S-1 

:rem 128 

320 GETKEYZS : rem 220 

325 IFZ$<>"F" ANDZ$O"R’ , THEN320 :rem 208 

330 N=N+INT (5*RND (0) ) : IFZ$="R"THEN360 

:rem 124 

335 IFN>13THEN350 : rem 225 

340 C=C-5-INT (6*RND (0) ) : IFC<1THEN2300 

:rem 87 

345 PRINT : PRINT"SEI SCAPPATO, PERO ' IL CAMM 
ELLO HA SPESO} 2 SPAZI }UN PO'DI ENERG 
IE": RETURN : rem 250 

350 PRINT”AHIME ' ; LA TUA FUGA E ' STATA SCOP 
ERTA E TU" : rem 1 

355 PRINT" SEI STATO CATTURATO E MURATO VI 
VO" : : PRINT :G0T025 40 : rem 49 

360 IFN<7THEN380 :rem 179 

365 S=S-3-INT (4*RND (0) ) : IFS<1THEN380 

: rem 9 6 

370 PRINT: PRINT" IL RISCATTO E ' STATO PAGAT 
O. PARTI SUBITO": RETURN :rem 129 

380 PRINT "PECCATO ! I GUERRIERI DEL SULTANO 
TI HANNORAGGIUNTO "; : rem 122 

385 PRINT "MENTRE TU FINIVI DI PAGARE IL 
RISCATTO" : rem 229 

390 GOTO2540 :rem 160 

400 PRINT" SEI DI FRONTE AD UN BIVIO;DA QU 
ALE PARTETI VUOI DIRIGERE ? 

{ 3 SPAZI} {SPÀZI} { 3 SPAZI} (S/D)" 

:rem 23 

405 GETKEYZS : IFZ$<>"S" AND Z$<>"D" THEN 4 
0 5 : rem 8 3 

410 IFZ$="S" THEN CHAR1, 19, 6, "SINISTRA 
{ 3 SPAZI}" :ELSECHAR1, 19, 6, "DESTRA 
{ 5 SPAZI}" : rem 166 

415 F=68+15*INT (2*RND (0) ) : PRINT: PRINT 

:rem -'uy 

420 IFASC (Z$) =FTHEN435 : rem 25 

425 D=D+8 :PRINT"HAI SBAGLIATO STRADA E PU 
RTROPPO TI SEI” : rem 147 

430 PRINT " ALLONTANATO DI 8 KM DALL ’ HAREM" 
: RETURN : rem 205 

435 D=D— 3 : PRINT"OTTIMO ! HAI PRESO LA DIREZ 
IONE GIUSTA" : IFD<1THEN2600 : rem 152 

440 PRINT "L 1 HAREM DISTA ADESSO { BLU} "; D; " 
{BLK} CHILOMETRI" : RETURN : rem 52 

470 PRINT"UNO SCORPIONE TI HA PUNTO" : IFV= 


0THEN^80 : rem 35 

475 PRINT"MA GRAZIE ALL’ANTIDOTO CHE AVEV 
I TI SEI SALVATO" :V=V-1 : RETURN 

: rem 161 

480 PRINT "PURTROPPO QUI TERMINA L 'AVVENTO 
RA DA TE" : rem 148 

485 PRINT "INTRAPRESA (ANZI, SPERA CHE ARRI 

VI P RE STOQU ALCUNO A SALVARTI)" 

: rem 3 0 

490 GETKEYZS: PRINT". .E ANCORA UNA VOLTA A 
LL' HAREM CI ARRIVATO SULTANO !!!*': GET 
KEYZS : END : rem 28 

500 PRINT"IL- CAMMELLO DI ABDUL E ' INCIAMPA 
TO ED HA” : rem 157 

505 PRINT"FATTO CADERE IL SULTANO IN MANI 

ERA INDE-COROSA" : rem 240 

510 PRINT "QUESTO TI PERMETTE DI RECUPERAR 
E 4 KM" : PRINT : PRINT : rem 32 

515 S=S+4 : RETURN :rem 247 

550 PRINT"ABDUL HA TROVATO UN PO'DI {CYN} 
UVA SULTANINA {BLK} E NATURALMENTE SI 
E 'VOLUTO FERMARE." : rem 65 

560 R=INT(3+RND (1) ) +2 :S=S+R :rem 33 

570 PRINT "QUESTO TI PERMETTE DI RECUPERAR 
E { RED } " ; R; " { BLK } CHI- LOMETRI" 

:rem 161 

580 RETURN :rem 125 

600 PRINT "HAI INCONTRATO { RED } HABIB { BLK } 
CHE VENDE L ' ANTIDO-TO CONTRO OGNI 
{GRN} 'IMPREVISTO DESERTICO ' {BLK} " 

:rem 50 

605 PRINT "LO VUOI COMPERARE ? {SPAZI}"; 

: rem 2 

610 GETKEYZS :IFZ$<>"S" AND Z$<>"N" THEN 61 

0 : rem 8 9 

615 PRINTZS : IFZ$="S"THEN 630 :rem 138 
620 PRINT "ALLORA CHE IL CIEL TI AIUTI SE 

TROVERAI" : rem 195 

625 PRINT "QUALCHE SCORPIONE O ROBA SIMILE 
": RETURN :rem 115 

630 V=V+1 : S=S-6 : IFSC1THEN2530 :rem 224 
635 PRINT "OTTIMO AFFARE, PERO ' I GUERRIERI 
CHE HAI" : rem 18 

640 PRINT"ALLE CALCAGNA SI SONO AVVICINAI 

1 DI 6 KM" : IFV>2THENV-2 :rem 90 

650 GETKEYZS : RETURN : rem 252 

700 PRINT " HAI TROVATO MUSTAFA ' CON IL SUO 

TAPPETO" : rem 42 

705 PRINT "VOLANTE E PUOI FARE IL {CYN } ' TA 
PPETO-STOP' {BLK}" : rem 200 

710 GETKEYZS : C=C+ 9 +INT(RND(0) *3) :IFC>100T 
HENC=100 : rem 132 

720 PRINT :PRINT"HAI PERCIÒ ' RIPOSATO IL TU 
O CAMMELLO." : rem 98 

730 PRINT "ADESSO RIPARTI DI GRAN LENA" : RE 
TURN : rem 52 

750 PRINT"TI GUARDI ATTORNO ..."; 

:rem 178 

755 FORI=0TO400 :NEXTI : rem 55 

760 PRINT "E NON SUCCEDE NULLA" : rem 22 

765 PRINT"RESTI IN ASCOLTO DEL SILENZIO D 
EL DESER-TO ...{SPAZI}"; : rem 101 

770 FORI=0TO400 :NEXTI : rem 52 

775 PRINT "E NON C'E 'NULLA CHE LO TURBI." 

: rem 2 1 
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780 

800 

810 

820 

830 

840 

850 

900 

905 

910 

915 

920 

925 

930 

935 

940 

945 

950 


GETKEYZS : PRINT : PRINT"PERCIO ' PROCEDI T 
RANQUILLO" : RETURN : rem 204 

PRINT"TI SEI IMBATTUTO IN UN'IMPROWI 
SA TEMPE-STA DI SABBIA." : rem 254 
PRINT"DATA LA SUA FORTE INTENSITÀ ' HAI 
PERSO UNPO'DI STRADA DALLA TUA META" 

: rem 207 

D=D+INT (5*RND (0) ) +5 : S=S + INT (3*RND (0) ) 
+2 : rem 141 

GETKEYZS: PRINT : rem 169 

PRINT "ORA PERO' HAI UN VANTAGGIO DI 
{ RED } " ; S ; " { BLK } KM SUL" : rem 147 

PRINT "SULTANO E L ' HAREM DISTA { BLU }"; D 
;" {BLK} { SPAZI} KM": RETURN : rem 45 
SCNCLR: PRINT: PRINT "SENZA ACCORGERTI S 
EI CADUTO IN UNA TRAP-POLA:"; 

: rem 181 

PRINT "DAVANTI A TE CI SONO NOVE URNE 
E DIQUESTE SEI SONO VUOTE, DUE CONTENG 
ONO LA” : rem 122 

PRINT "CHIAVE CON LA QUALE TI PUOI LIB 
E RARE, MA NELL'ULTIMA SI TROVA SIA UNA 
CHIAVE CHE" : rem 97 

PRINT"UN SERPENTE VELENOSO" : PRINT 

:rem 171 

PRINT"DATO CHE SEI OBBLIGATO AD APRIR 
NE UNA.." : rem 174 

FORI=0TO600 :NEXTI : PRINT" { 21 SPAZI} 


{BLU} . . .BUONA FORTUNA {BLK} 

" : PRINT 

: PRI 

NT 

: rem 

158 

GOSUB 1900 :GETKEYZ$ 

: rem 

103 

CHAR1, 19, 12, "QUALE URNA APRI " 



: rem 

95 

CHAR1 ,35,12,"?": GETKEYZS : IFASC ( Z $ ) < 4 9 

OR ASC (Z$) >57 THEN940 

: rem 

20 

B=VAL(Z$) : PRINTB 

: rem 

220 

IFT (B) =2THEN980 : ELSEIFT (B) ’ 

=LTHEN970 


: rem 

105 


955 CHAR1, 19, 13, " {RED }URNA VUOTA. RIPROVA 
{BLK}" :S=S-1-RND (0) : rem 87 

960 CHAR1, 4*B-12*INT (B/3.5) -2, 14+4*INT (B/ 
3.5) , "{SPAZI}" : rem 131 

965 IFS<1THEN 2500:ELSE940 : rem 233 

970 SCNCLR: PRINT: PRINT" {RED (OTTIMO, HAI TR 
OVATO LA CHIAVE. {BLK} ORA CHE SEIIN SL 
VO RIPRENDI IL TUO CAMMINO" : rem 17 9 

975 S=INT(S) :GETKEYZ$: RETURN : rem 95 

980 SCNCLR :f>RINT: PRINT" { RED (BISSSS. . . 

{BLK} IL SERPENTE E'QUI!" : rem 188 

985 PRINT "SEI STATO MORSICATO, PERO S=IN 
T (S) : IFV>0THENV=V-1 :G0T0995 : rem 147 
990 PRINT "SPERO CHE TU RIESCA A SALVARTI 
PER POTERRITENTARE QUESTA IMPRESA" :GE 
TKEYZS : END : rem 10 4 

995 PRINT "GRAZIE ALLA TUA PREVIDENZA SEI 
SALVO" : RETURN : rem 182 

999 PRINT"UN MIRAGGIO FELLONE TI HA FATTO 
CREDERE DI AVER RAGGIUNTO L'AGOGNATA 
META...” : rem 22 6 

1010 FORI=0TO500 :NEXTI : rem 89 

1020 D=D+8+INT (4*RND (0) ) :GETKEYZ$ 

:rem 150 

1030 PRINT "MENTRE PURTROPPO MANCANO ANCOR 
A" ;D; " {SPAZI }KM” : RETURN : rem 60 

1900 REM :rem 174 


1910 PRINT” [<A>]{ 3 SH *}[<R>]{ 3 SH * } 
[<R>] { 3 SH *}[<S>]{ 27 SPAZI} 

{ 1 SH -} { 3 SPAZI} { 1 SH -} 

{ 3 SPAZI}} 1 SH -}{ 3 SPAZI} 

{ 1 SH -}" : rem 14 6 

1915 PRINT" { 1 SH -} 1 { 1 SH -} 2 

{ 1 SH -} 3 { 1 SH -}{ 27 SPAZI} 

{ 1 SH -} { 3 SPAZI} { 1 SH -} 

{ 3 SPAZI} { 1 SH -}{ 3 SPAZI} 

{ 1 SH -}" : rem 31 



3 




1920 PRINT" [<Q>] { 3 SH *}{ 1 SH +} 

{ 3 SH *} { 1 SH +} { 3 SH *}[<W>] 

{ 27 SPAZI }{ 1 SH -}{ 3 SPAZI} 

{ 1 SH -} { 3 SPAZI} { 1 SH -} 

{ 2 SPAZI} {SPAZI} { 1 SH - } " : rem 133 
1925 PRINT"} 1 SH -} 4 { 1 SH -} 5 

{ 1 SH -} 6 { 1 SH -}{ 27 SPAZI} 

{ 1 SH -} { 3 SPAZI} { 1 SH -} 

{ 3 SPAZI) { 1 SH -} { 3 SPAZI} 

{ 1 SH -}" : rem 41 

•1930 PRINT" [<Q>] { 3 SH *}{ 1 SH +} 

{ 3 SH *} { 1 SH +} { 3 SH *}[<W>] 

{ 27 SPAZI} { 1 SH -}{ 3 SPAZI} 

{ 1 SH -} { 3 SPAZI} { 1 SH -} 

{ 2 SPAZI} {SPAZI} { 1 SH - } " : rem 134 
1935 PRINT" { 1 SH -} 7 { 1 SH -} 8 

{ 1 SH -} 9 { 1 SH -} { 27 SPAZI} 
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{ 1 SH -} { 3 SPAZI} { 1 SH -} 

{ 3 SPAZI}} 1 SH -}{ 3 SPAZI} 

{ 1 SH -}" :rem 51 

1940 PRINT" [<Z>] { 3 SH *}[<E>]{ 3 SH * } 

[<E>] { 3 SH * } [<X>] " ; : rem 102 

1945 F0RI=1T09 :T (I) =0 :NEXTI : rem 164 

1950 W=INT ( 9*RND (0))+l:T(W)=2 : rem 104 

1955 Y1=INT ( 9*RND (0) ) +1 : IFY1=WTHEN1955 

: rem 22 9 

1960 Y2=INT (9*RND (0) ) +1 : IFY2=Y1 OR Y2=W T 
HEN1960 : rem 210 

1970 T(Y1)=1:T(Y2)=1: RETURN : rem 96 

2050 RETURN : rem 167 

2300 SCNCLR : rem 138 

2310 PRINT"{RED}0 FELLONE, 0 RIBALDO !!! 

{BLK} " : rem 114 

2320 PRINT" HAI PROPRIO SPREMUTO IL TUO CA 
MMELLO" : rem 235 

2330 PRINT"TI DENUNCERO ' AL { BLU } WWF { BLK } " 

: rem 4 8 

2340 GETKEYZS : END : rem 33 

2500 REM SULTANO : rem 209 

2530 SCNCLR : PRINT" {RED} PECCATO, I GUERRIER 
I DEL SULTANO TI HANNORAGGIUNTO QUAN 
DO ERI A" ;D; : rem 55 

2535 PRINT" CHILOMETRI" :PRINT"DALL' HAREM" 

: rem 7 6 

2540 PRINT: PRINT" SE UN GIORNO RIUSCIRAI A 
FUGGIRE POTRAI DI NUOVO TENTARE QUE 
STA AVVENTURA"" : rem 24 

2550 GETKEYZ $ : END : rem 36 

2600 PRINT" {CLR}{ 2 GIU'H 6 DES } {RVS } 

{PUR} { 4 SPAZI} {OFF} {RVS} 

{ 5 SPAZI} {OFF} {RVS } { 5 SPAZI} {OFF} 
{RVS} {OFF} {RVS} [<*>]{ 1 SH ?} 
{OFF} { RVS } { 4 SPAZI} {OFF}" : rem 248 
2610 PRINT" { 6 DES} {RVS} {OFF}{ 2 SPAZI} 
{RVS} {OFF } { 3 SPAZI} {RVS} {OFF} 

{ 5 SPAZI} {RVS} {OFF } { 3 SPAZI} {RVS} 
{OFF} { RVS } { 4 SPAZI} {OFF} {RVS} 
{OFF } { 2 SPAZI} {RVS} {OFF}" : rem 104 
2620 PRINT” { 6 DES} {RVS} {OFF}{ 2 SPAZI} 
{RVS} {OFF } { 3 SPAZI} {RVS} {OFF} 

{ 5 SPAZI} {RVS} { OFF } { 3 SPAZI} {RVS} 
{OFF} {RVS} {OFF} [<*>]{ 1 SH g} 
{RVS} {OFF} {RVS} { OFF } { 2 SPAZI} 
{RVS} {OFF}" : rem 149 

2630 PRINT" { 6 DES} {RVS} {OFF}{ 2 SPAZI} 
{RVS} {OFF } { 3 SPAZI} {RVS} {OFF} 

{ 5 SPAZI} {RVS} {OFF } { 3 SPAZI} {RVS} 
{OFF} {RVS} { OFF } { 2 SPAZI} {RVS} 


{OFF} {RVS} {OFF } { 2 SPAZI} {RVS} 
{OFF}" :rem 14 

2640 PRINT" { 6 DES} {RVS} { 4 SPAZI} {OFF} 

{ 3 SPAZI} {RVS} {OFF } { 5 SPAZI} {RVS} 
{OFF } { 3 SPAZI} {RVS} {OFF} {RVS} 

{OFF} { ' 2 SPAZI} {RVS} {OFF} {RVS} 

{ 4 SPAZI} {OFF}" : rem 199 

2650 PRINT" {GIU' }{, 4 DES } {RED } {RVS } {OFF} 

{ 2 SPAZI} {RVS} { 1 SH q } {OFF } 

{ 1 SH g}{ 2 SPAZI} {RVS} {OFF} 

{ 2 SPAZI} {RVS} {OFF} {RVS} 

{ 1 SH ?){ 2 SPAZI} [<*>] {OFF} 

{ RVS } { 3 SPAZI} [<*>] {OFF} {RVS} 

{ 4 SPAZI} {OFF} {RVS} [<*>] 

{ 1 SH ?} {OFF}" : rem 160 

2660 PRINT" { 4 DES} {RVS} {OFF}{ 6 SPAZI} 
{RVS} {OFF } { 2 SPAZI} {RVS} {OFF} 

{RVS} { OFF } { 2 SPAZI} {RVS} {OFF} 

{RVS} {OFF } { 2 SPAZI} {RVS} {OFF} 

{RVS} {OFF } { 4 SPAZI} {RVS} 

{ 4 SPAZI} {OFF}" : rem 215 

2670 PRINT" { 4 DES} {RVS} {OFF}{ 6 SPAZI} 
{RVS } { 4 SPAZI} {OFF} {RVS} 

{ 4 SPAZI} {OFF} {RVS } { 3 SPAZI} {OFF} 

{ 1 SH ?| {RVS } { 3 SPAZI} {OFF} 

{ 2 SPAZI} {RVS} { OFF } { 1 SH gl 
[<*>] { RVS } {OFF}" : rem 193 

2680 PRINT" { 4 DES} {RVS} {OFF}{ 6 SPAZI} 
{RVS} {OFF } { 2 SPAZI} {RVS} {OFF} 

{RVS} {OFF } { 2 SPAZI} {RVS} {OFF} 

{RVS} {OFF} [<*>] {RVS} [<*>] {OFF} 

{ 2 SPAZI} {RVS} {OFF } { 4 SPAZI} {RVS} 

{ OFF } { 2 SPAZI} {RVS} {OFF}" 

: rem 5 9 

2690 PRINT" { 4 DES} {RVS} { 4 SPAZI} {OFF} 

{ 3 SPAZI} {RVS} { OFF } { 2 SPAZI} {RVS} 
{OFF} {RVS} {OFF } { 2 SPAZI} {RVS} 
{OFF} {RVS} {OFF} [<*>] {RVS } [<*>] 
{OFF} {RVS } { 4 SPAZI} {OFF} {RVS} 

{OFF } { 2 SPAZI} {RVS} {OFF}": rem 60 
2700 PRINT" {GIU' } { 8 DES} {RVS} { 4 SPAZI} 
{OFF} [<*>] {RVS} [<*>] {OFF} {RVS} 

{ 5 SPAZI} {OFF} {RVS} {OFF} 

{ 2 SPAZI} {RVS} {OFF} {RVS} 

{ 4 SPAZI} {OFF}" :rem 41 

2710 PRINT" { 8 DES} {RVS} {OFF}{ 9 SPAZI} 
{RVS} { OFF } { 3 SPAZI} {RVS} {OFF} 

{ 2 SPAZI} {RVS} {OFF} {RVS} {OFF} 

{ 2 SPAZI} {RVS} {OFF}" : rem 91 

2720 PRINT" { 8 DES} {RVS} { 3 SPAZI} {OFF} 

{ 7 SPAZI) {RVS} {OFF } { 3 SPAZI} {RVS} 
{OFF } { 2 SPAZI} {RVS} {OFF} {RVS} 
{OFF} { 2 SPAZI} {RVS} {OFF}":rem 92 
2730 PRINT" { 8 DES} {RVS} {OFF}{ 9 SPAZI} 
{RVS} {OFF } { 3 SPAZI} {RVS} {OFF} 

{ 2 SPAZI} {RVS} {OFF} {RVS} {OFF} 

{ 2 SPAZI} {RVS} {OFF}” : rem 93 

2740 PRINT” { 8 DES} {RVS} { 4 SPAZI} {OFF} 

{ 6 SPAZI} {RVS} { OFF } { 3 SPAZI} {RVS} 
{ 4 SPAZI} {OFF} {RVS } { 4 SPAZI} {OFF} 
" : rem ? 7 

2750 PRINT" { 4 GIU' } {BLU} ORA RIPOSATI, NON 
HAI PIU ' BISOGNO DI ME! {BLK}" 

: rem 4 6 

2760 GETKEYZS : IFZ$=""THEN27 60 : rem 220 
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di: J. Gregory 

trad. e adatt. di M. Anticoli 


Cerchiamo di aiutar» il simpati- 
co e buon Jim a salvare la fidan- 
zata dal cattivo gorilla. 

Il cattivo gorilla ha "catturato* la fidanza- 
ta di Jim e l'ha portata in cima a un can- 
tiere. 

Il giocatore deve cercare di aiutare il po- 


vero Jim. 

Premendo i tasti S, A, Jim si sposterà ri- 
spettivamente a destra e a sinistra; con 
il tasto ' * ' e il tasto cursore verso l'alto 
Jim andrà su e giù per le scale e pre- 
mendo la barra spazio salterà i barili 
che il gorilla farà rotolare sul percorso. 

Il punteggio del giocatore viene mostra- 
to in basso a sinistra. 

Si hanno a disposizione tre vite in ogni 
partita. 

Nel gioco esistono tre schermi; dopo 
aver superato l'ultimo (cioè il terzo) si 
comincerà a giocare dal primo schermo, 


ma questa volta con una velocità supe- 
riore allo schermo precedente. 

Si consiglia a chi deve digitare il pro- 
gramma di: 

1 ) ridefinire i tasti funzione, perché molti 
comandi vengono ripetuti (esempio: 
data, poke); 

2) far scrivere al computer il numero di li- 
nea con un comando diretto di: AUTO 

IO 

(cioè senza numero di linea). 

Quest'ultimo punto è importante, per- 
chè i numeri di linea vengono incre- 
mentati di 10. 
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10 REM IL GORILLA 

: rem 90 

20 A=652 98 : POKEA, PEEK (A) AND251 : POKEA+1 , (P 
EEK ( A+l ) AND3 ) OR5 6 : VOL8 : PRINT " { CLR } " 

: rem 143 


30 POKE52, 55 :POKE54, 55 :POKE56, 55 :GOSUB205 



0 :GOSUB2090 :SYS882 :GOSUB420 

: rem 

146 

40 

GOSUB7 40 

: rem 

127 

50 

GOSUB710 

: rem 

125 

60 

IFLV= 1THENGOSUB8 4 0 

: rem 

80 

70 

IFLV=2 THENGOSUB 910 

: rem 

80 

80 

IFLV=3THENGOSUB1010 

: rem 

122 

90 

GOSUB1200 

: rem 

172 

100 

X=1 : Y=21 

: rem 

138 

110 

BX=1 : BY=5 : BD=1 : BE=0 

: rem 

61 

120 

CX=37 :CY=5 :CD=-1 :CE=0 

: rem 

168 

130 

IFLV=3THENBX=10 :CX=27 

: rem 

23 

140 

GOSUB1640 

: rem 

224 

150 

GOSUB1770 

: rem 

229 

160 

GOSUB1680 

: rem 

230 

170 

POKE208 , X : POKE20 9, Y: SYS828 : 

: PRINTOM$ 



: rem 

208 

180 

GOSUB12 90 

: rem 

229 

190 

IFY=0THEN280 

: rem 

184 

200 

POKE2 0 8 , X : POKE2 0 9 , Y : GOSUB43 0 : rem 

185 

210 

IFGG=76ORGG=32THEN230 

: rem 

239 

220 

GOTO300 

: rem 

96 

230 

POKE208 , X : POKE20 9 , Y+l :GOSUB430 




: rem 

24 

240 

IFGG=3 2 THENY=Y+ 1 

: rem 

207 


250 POKE20 8 , BX : POKE20 9 , BY : SYS 82 8 :PRINTOB$ 

: rem 72 

2 60 POKE208, CX:POKE209, CY : SYS 82 8 :PRINTOC$ 

: rem 7 6 


270 GOTO140 : rem 103 
280 LV=LV+1:IFLV=,4THENLV=1 : rem 146 
290 SC=SC+(LV*50) :POKE208, 5 :POKE209, 23 : SY 



S828 : PRINTSC; :GOTO60 

: rem 

246 

300 

SOUND2 ,300,75 

: rem 

165 

310 

LI=LI-1 : IFLI=0THEN340 

: rem 

234 

320 

FORNITOLI 

: rem 

111 

330 

POKE208 , 28+N : POKE20 9, 23 : SYS 82 8 : PRINT" 


: NEXT ; GOTO 6 0 

: rem 

118 

340 

PRINT” {CLR} " :POKE208, 12 :POKE209, 8 

: SYS 


828 

: rem 

208 

350 

PRINT” {RED} { 2 SPAZIJHAI PERSO 



{ 2 SPAZI} ! ! !” 

: rem 

67 

360 

PRINTTAB (13) ” 

t* 




: rem 

153 

370 

POKE208, 11 :POKE209, 12 : SYS828 : PRINT" 


{PUR} { 2 SPAZI} PUNTEGGIO:" 

SC : rem 

136 

380 

PRINTTAB (2) "{BLU} { 2 GIU'} PER GIOCARE 


PREMERE { 2 SPAZI} LA BARRA 

SPAZIO 

»» 



: rem 

195 

390 

KS=PEEK ( 198 ) 

: rem 

143 

400 

IFKSO60THEN390 

: rem 

108 

410 

SOUND 1, 250, 25 :GOTO40 

: rem 

124 

420 

RESTORE5 10 :FORN=0TO151 : READA : POKE1 4 8 4 


8 +N, A : NEXT : RETURN 

: rem 

232 

430 

SYS 8 37 :GG=PEEK (215) : RETURN 

: rem 

101 

440 

COLORI, 9, 2 

: rem 

11 

450 

POKE208 , 2 :POKE20 9, 0 : SYS 82 8 

: PRINTCHRS ( 


96) ;CHR$ (97) ;CHR$ (98) 

: rem 

126 


4 60 POKE2C8 , 2 :POKE20 9, 1 : SYS 82 8 :PRINTCHR$ ( 
99); CHR$ (100) ; CHR$ (101) : rem 197 


POKE2 0 8 , 2 : POKE2 0 9,2:SYS828: PRINTCHR3 ( 
102) ;CHR$ (103) ;CHR$ (104) : rem 238 

POKE208 2 : POKE20 9 , 3 : SYS 82 8 : PRINTCHR$ ( 
105) ; CHR$ (10 6) ;CHR$ (107) : rem 249 

POKE208 , 1 : POKE2 0 9 , 4 : SYS82 8 : PRINT" 

[< 5 U>] " :rem 165 

RETURN : rem 117 

DATAO , 0,16, 44, 62,28,56, 112 : rem 228 

DATA12 9, 6 6, 12 6, 90, 12 6, 10 6, 8 6, 60 

:rem 243 

DATAO, 0,8, 52, 124, 56, 28, 14 : rem 182 

DATA112, 121, 127, 63,31,7, 1, 1 : rem 15 
DATA60, 255, 255, 255, 231, 215, 235, 213 

:rem 128 

DATA14, 158,254,252,2 48,22 4, 128, 128 

:rem 140 

DATAI, 3, 15, 15, 31, 63, 62, 62 : rem 183 

DATA171, 213,235,215,235,255, 60,0 

: rem 2 4 

DATA12 8, 192,240,240,248,252,124, 124 

: rem 18 0 

DATA30, 15, 15, 3, 59, 127, 127, 57: rem 84 
DATAO, 0,0, 0,12 9, 195, 195, 12 9 : rem 27 
DATA120, 2 40, 2 40, 192, 220, 254, 254, 15 6 

:rem 167 

DATA6 6, 12 6, 66, 66, 66, 12 6, 66, 66 

:rem 161 

DATA60 , 66, 18 9, 165, 165, 18 9, 66, 60 

: rem 8 

DATA255 , 255 , 112,120,60,30,15,3 

:rem 170 

DATA56, 60,16,14,52,56,16,2 8 : rem 42 
DATA28, 60,8,52,44,28,8,56 : rem 207 
DATA18 6, 18 6, 14 6, 12 4, 56, 68, 130, 130 

:rem 93 

DATA255 , 255 , 14,30,60,120,240,192 

: rem 24 

REM INIZIO GIOCO : rem 38 

SC=0 : LI-3 : LV-1 : L$=CHR$ (108): B$=CHR$ ( 1 
09) :M$=CHR$ (111) : rem 140 


p$ 

_ ii 

'{ 1 

. SH 

n } { : 

1 SH 

R] 

H : 

1 SH 

N} 



< 

1 

SH 

R}{ 

1 

SH 

N} { 

1 

SH 

R} { 

1 

SH 

N} 

t 

1 

SH 

R} { 

1 

SH 

N} { 

1 

SH 

R} { 

1 

SH 

N} 

{ 

1 

SH 

R} { 

1 
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N} { 
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SH 
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1 

SH 

N} 

{ 

1 

SH 

RW 

1 

SH 

N} { 

1 

SH 

R} { 

1 

SH 

N} 


: RETURN 

: rem 

86 

REM SETTA LO SCHERMO - 

— 



: rem 

19 

REM INIZIALIZZAZIONE - 

— 



: rem 

186 

COLORI, 3, 2 

: rem 

9 

COLORO , 1 : COLOR4 , 1 : RETURN 

: rem 

13 

REM SCHERMO 

: rem 

251 

PRINT" { CLR } " : COLORI ,3,3 

: rem 

171 

P0KE208 , 30 : POKE209, 4 : SYS828 

: PRINTLEFT 

$ (P$, 9) ; 

: rem 

178 

PO=34 :N=0 :GOSUB1250 

: rem 

82 

COLORI, 3, 3 :F0RN=6T022STEP4 

: rem 

96 

POKE208, 0 :POKE20 9,N : SYS 82 8 : 

PRINTP $ 

; : N 

EXTN : RETURN 

: rem 

111 


470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 
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830 

REM PRIMO 

: rem 

155 

840 

GOSUB780 : F0RN=6T018STEP4 

: rem 

25 

850 

PO=INT (RND (1) *36) +2 

: rem 

11 

860 

IFN<2 3THENPOKE2 0 8 , PO : POKE2 09,N:SYS828 


: PRINT" " 

: rem 

67 

870 

LP=RND (1) *36+2 : IFLP=POTHEN870 




: rem 

221 

880 

IFN<23THENPO=LP :GOSUB1250 

: rem 

71 

890 

NEXT : RETURN 

: rem 

250 

900 

REM SECONDO 

: rem 

29 

910 

GOSUB780 

: rem 

185 

920 

F0RN=11T022 

: rem 

118 

930 

POKE208 , 6 : POKE20 9, N : SYS828 : 

PRINT" 



[< 8 +> ] " : NEXT 

: rem 

212 

940 

POKE208 , 6 : POKE20 9, 17 : SYS 82 8 

: PRINT 

t« 


{ 8 SPAZI}" 

: rem 

70 

950 

POKE208 , 6 : POKE209, 21 : SYS 82 8 

: PRINT 

« 


{ 8 SPAZI}” 

: rem 

66 

960 

POKE2 08,6: POKE2 09, 13.-SYS828 

: PRINT 



{ 8 SPAZI}" 

: rem 

68 

970 

PO=8 :N=6 :GOSUB1250 :PO=18 :N= 

10 : GOSUB12 


50 

: rem 

88 

980 

PO=3:N=14:GOSUB1250:PO=18:N 

=18 :G0SUB1 


250 

: rem 

139 

990 

RETURN 

: rem 

130 

1000 

i REM TERZO 

: rem 

206 


1010 PRINT" {CLR} " :GOSUB440 : COLORI, 3, 3 

: rem 32 

1020 POKE2 08,0: POKE2 09,7:SYS828: PRINTGA$ 

:rem 157 


1030 RESTORE1170 : F0RZZ=1T06 : READ XP , YP, DU 




: rem 

101 

1040 

POKE2 0 8 , XP : POKE2 0 9 , YP 

: SYS828 :PRINTLE 


FT$ (P$ , DU) :NEXT 

: rem 

47 

1050 

PO=17 :N=6 :GOSUB1250 

: rem 

135 

10 60 

PO=20 :N=6 :GOSUB1250 

: rem 

130 

1070 

PO=13 :N=10 : GOSUB1250 

: rem 

176 

1080 

PO=24:N=10:GOSUB1250 

: rem 

179 

1090 

PO=15 :N=14 :GOSUB1250 

: rem 

184 

1100 

PO=22 :N=I4 :GOSUB1250 

: rem 

174 

1110 

PO=6 :N=18 :GOSUB1250 

: rem 

133 

1120 

PO=31 :N=18 :GOSUB1250 

: rem 

180 

1130 

PO=34 : N=0 :GOSUB1250 

: rem 

127 

1140 

POKE20 8, 11 :POKE20 9, 18 

: SYS828 :PRINT" 


1* 

: rem 

156 

1150 

POKE208 , 2 6 : POKE20 9, 18 

: SYS828 :PRIT$T | 

: rem 

3 



1160 

GOSUB1210 : RETURN 

: rem 

38 

1170 

DATA30, 4, 10, 9, 6,20,7, 

10,24,5,14, 

28 


A 

: rem 

' 146 

1180 

DATA3, 18,32,0,22,39 

: rem 

193 

1190 

REM TOP 

: rem 

10 

1200 

GOSUB440 

: rem 

219 

1210 

POKE2 08,0: POKE2 09,23: 

SYS828 :PRINT"PU 


NTI : "SC; 

: rem 

255 

1220 

POKE208, 28 :POKE209, 23 

: SYS 82 8 : F0RN=1T 


OLI :PRINTCHR$ (111) ; :NEXT : rem 

9 

1230 

RETURN 

: rem 

166 

1240 

REM SCALA 

: rem 

119 

1250 

COLORI, 9, 3 :FORZ=0TO3 

: rem 

250 

1260 

POKE2 0 8 , PO : POKE2 0 9 , N+Z : SYS 82 8 : PRINTL 


$ 

: rem 

114 

•1270 

NEXT : RETURN 

: rem 

35 

1280 

REM MOVIMENTO — 

— : rem 

213 

1290 

GOSUB1980 

: rem 

30 



1300 IFLE=1ANDX>1THENX=X-1 :M$=CHR$ (112) 

:rem 52 

1310 IFRI=1ANDX<37THENX=X+1 :M$=CHR$ (111) 

:rem 115 

1320 IFUP=1THENM$=CHR$ (113) :GOTO1360 

:rem 105 

1330 IFDN=1THENM$=CHR$ (113) :GOTO1400 

: rem 8 2 

1340 IFFI=1THEN1420 : rem 74 

1350 RETURN :rem 169 

1360 POKE208 , X : POKE20 9 , Y-l : GOSUB430 : IFGG< 
>7 6THEN1380 :rem 136 

1370 Y=Y— 1 :GOTO1330 :rem 82 

1380 POKE208 , X : POKE20 9 , Y+l : GOSUB430 : IFGG= 
7 6THEN1370 : rem 74 

1390 GOTO1330 :rem 205 

1400 POKE208,X:POKE209, Y+l :GOSUB430 : IFGG< 
>7 6THEN1340 : rem 125 

1410 Y=Y+1 :GOTO1340 : rem 76 

1420 IFM$=CHR$ ( 112 ) THENXD=-1 : ELSEXD=1 

: rem 18 9 

1430 IFX<lORX>37THENXD=0 : rem 245 

1450 POKE208 , BX : POKE20 9, BY : SYS 82 8 : PRINTOB 
$ ; : rem 182 

1460 POKE208 , CX : POKE20 9, CY : SYS828 : PRINTOC 



$; 

: rem 

186 

1470 

RESTORE1530 : F0RN=1T06 

: rem 

111 

1480 

READA 

: rem 

42 

1490 

Y=Y+A:GOSUB1540 

: rem 

173 
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1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 


IFPL=1THENN=11 

NEXTN 

GOSUB1 68 0 : RETURN 
DATA-1, -1, 0, 0, 1, 1 
X=X+XD:PL=0 


: rem 12 3 
: rem 8 4 
: rem 4 9 
: rem 61 
:rem 193 


POKE2 0 8 , X : POKE2 0 9 , Y+l :GOSUB430 : IFGG< 


>32THENPL=1 : RETURN 
IFX<1THENX=1 
IFX>38THENX=38 
GOSUB1 6 4 0<: GOSUB1 6 8 0 
SOUND2, 100,2 


: rem 215 
:rem 21 
: rem 140 
: rem 162 
: rem 165 


POKE2 0 8 , BX : POKE2 0 9 , BY : SYS 82 8 : PRINTOB 


$; 


: rem 17 9 


POKE2 0 8 , CX : POKE2 0 9 , CY : SYS 8 2 8 : PRINTOC 


$/ 


:rem 183 


GOSUB177 0 : POKE2 0 8 , X : POKE209, Y: SYS 82 8 
: PRINTOM$ / : RETURN : rem 223 

REM OMINO : rem 152 

POKE2 0 8 r X:POKE20 9, Y :GOSUB430 


:rem 242 

OM$=CHR$ (GG+32) : IFGG=32THENOM$=CHR$ ( 
32) : rem 21 

PRINTM3; : RETURN : rem 32 

REM BARILI : rem 2 05 

POKE2 0 8, BX : POKE2 0 9 , BY : GOSUB43 0 
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: rem 122 

1690 OB$=CHR$ (GG+32) : IFGG=32THENOB$=CHR$ ( 
32) : rem 3 

1700 PRINTBS; : IFGG=790RGG=800RGG=81THEN30 
0 :rem 101 

1710 POKE208, CX:POKE209, CY :GOSUB430 

:rem 118 

1720 OC$=CHR$ (GG+32) : IFGG=32THENOC$=CHR$ ( 



32) 

: rem 

255 

1730 

I F GG= 7 7 THENOC $ = ” " 

: rem 

249 

1740 

PRINTB$ ; :IFGG=79ORGG=80ORGG 

=81THEN30 


0 

: rem 

105 

1750 

RETURN 

: rem 

173 

1760 

REM BARILE 

: rem 

201 

1770 

A=INT (RND (1) *10) 

: rem 

122 

1780 

POKE2 0 8 , BX : POKE2 0 9 , BY+1 : GOSUB 4 3 0 




: rem 

215 

1790 

IFGG=320RGG=7 6ANDA>5THENBE= 

1 




: rem 

20 

1800 

IFGG=78ORGG=82THENBE=0 

: rem 

139 

1810 

BY=BY+BE : IFBE=0THENBX=BX+BD 

: rem 

253 

1820 

POKE2 0 8 , CX : POKE2 0 9 , CY+ 1 : GOSUB43 0 




: rem 

212 

1830 

IFGG=320RGG=7 6ANDA>5THENCE= 

1 




: rem 

16 

1840 

IFGG=7 8ORGG=82THENCE=0 

: rem 

144 

1850 

CY=CY+CE : IFCE=0THENCX=CX+CD 

: rem 

8 

1860 

IFBX<1THENBD=1 

: rem 

136 

1870 

IFBX>37THENBD=-1 

: rem 

241 

1880 

IFCX<1THENCD=1 

: rem 

140 

1890 

IFCX>37THENCD=-1 

: rem 

245 

1900 

IF (BX<10RBX>37 ) ANDBY=21THENBX=1 : 

BD=1 


: BY=5 : GOSUB1 930 

: rem 

213 


1910 IF (CX<10RCX>37 ) ANDCY=21THENCX=37 :CD= 



-1 :CY=5 :GOSUB1950 

: rem 

68 

1920 

RETURN 

: rem 

172 

1930 

IFLV=3THENBX=10 

: rem 

213 

1940 

RETURN 

: rem 

174 

1950 

IFLV=3THENCX=27 

: rem 

224 

1960 

RETURN 

: rerr\ 

176 

1970 

RETURN 

: rem 

177 

1980 

LE=0 :RI = 0 :UP=0 :DN=0 : 

: FI=0 : KS=PEEK (198 


) 

: rem 

250 

1990 

IFKS=10THENLE=1 

: rem 

204 

2000 

IFKS=13THENRI=1 

: rem 

200 

2010 

IFKS=43THENUP=1 

: rem 

21.4 

2020 

IFKS=4 9THENDN=1 

: rem 

202 

2030 

IFKS=60THENFI=1 

: rem 

193 

2040 

RETURN 

: rem 

166 


2050 RESTORE20 60 :FORN=0TO53 :READA:POKE828 
+N, A :NEXT: RETURN ; rem 181 

2060 DATA24, 166,209, 164,208,32,240,255, 96 
, 169,0,133,210,169,12,133,211,32, 60, 

3 :rem 37 

2070 DATAI 64, 209,240,8,169, 40,32,102,3, 13 
6,208,248, 165,208,32,102,3, 177,210, 1 
3 3 ; rem 8 6 

2080 DATA215, 96, 24, 101, 210, 133, 210, 165, 21 
1, 105, 0,133,211,96 : rem 108 

2090 RESTORE2100 :FORN=0TO30 : READA : POKE8 82 
+N, A :NEXT: RETURN : rem 175 

2100 DATA160, 0,132,212, 132,214,169,208, 13 
3,213,169,56, 133,215,162,3 : rem 253 
2110 DATA177 ,212, 145,214,200,208,249,230, 
213,230,215,202,16,242,96 : rem 208 
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Suonare è facile. 


MUSIC MASTER trasforma il tuo Ciò in 
un fantastico strumento musicale. 

Anzi , ancora di più : puoi scegliere tra il 
dolce e melanconico flauto, o il più 
sfrontato e moderno synt o ancora il 
simpatico ed essenziale xilofono. 

Carica il programma SINTETIZZA TORE e 
sperimenta, utilizzando la apposita tastiera, 
le grandi possibilità del tuo piccolo , grande 
computer. 

Le pagine seguenti ti informeranno su come 


ciò sia possibile, ti ricorderanno i principi 
fondamentali della musica. 

Qualunque sia la tua preparazione in 
questa materia, sarai in grado di leggere e 
riprodurre co! tuo Ciò qualsiasi brano 
musicale. 

Grazie a! programma MUSIC EDITOR 
potrai infatti introdurre nella memoria del 
computer la musica composta da te o 
ricavata da spartiti, per poi riascoltarla a 
tuo piacimento. 
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DIVISIONE PERIODICI 





di F. Fanecco 

La perfetta efficienza e la durata 
di ogni mezzo meccanico, dipen- 
dono per buona parte dalla cura 
posta nella loro manutenzione. 

Qualsiasi macchina destinata a durare 
nel tempo necessita, durante il propio ci - 
ciò di vita, di controlli, pulizie, ispezioni, 
e talvolta di sostituzioni di alcune sue 


parti, di messe a punto, e altre ancora 
che, oltre a consentirne il perfetto funzio- 
namento possono evitare o rallentare 
eventuali cedimenti naturali. 

Per una corretta manutenzione, tutte le 
case costruttrici forniscono al momento 
dell’acquisto di un loro prodotto un libret - 
to contenente, per quel modello, le norme 
alla manutenzione e i periodi in cui le rela - 
tive operazioni devono essere svolte. 
Per i veicoli stradali tali norme sono ri feri - 


te a periodi espressi come chilometri per - 
corsi dal mezzo, mentre per gli aeroplani, 
e le macchine elettriche si usa generai - 
mente riferirsi ad ore di funzionamento, 
ma pur avendo come riferimento due 
grandezze fisicamente diverse: lo spa- 
zio nel primo caso, e il tempo nel secon - 
do la filosofia con la quale si opera e' la 
stessa. 

Risulta comunque evidente che chi di- 
spone di un mezzo meccanico deve at - 
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tenersi a delle norme che gli impongo - 
no, al termine di un determinato tempo di 
funzionamento, di svolgere controlli, ope - 
razioni o sostituzioni di alcune sue parti 
maggiormente deteriorate o sollecita - 
te,per salvaguardare la efficienza della 
macchina. Ma a seconda del tipo di mac- 
china, che si ha a disposizione, della sua 
complessita'e del suo im piego, le opera - 
zioni e i periodi in cui vanno svolte sono 
diverse sia come numero sia come en - 
tita'. 

Se pensiamo per esempio ad una compa- 
gnia aerea che dispone di un certo nu me- 
ro di velivoli di tipo diverso, ciascuno 
operante a periodi differenti, si può' 
capire come possa essere indispensabi - 
le dover gestire la loro manutenzione in 
modo preciso e completo, trattandosi poi 
di macchine estremamente complesse e 
delicate come gli aeroplani. 

Le compagnie di oggi, dispongono di mo - 
derni computers e di un potente software 
in grado di gestire aereo per aereo, ogni 
morizzeranno tutte le informazioni riguar- 
danti il veicolo in un file il quale, una volta 
creato costituirà’ il supporto con cui inte- 
ragirà' il computer ogni qualvolta verrà' 
interpellato dall'utente. 

La prima opzione che dobbiamo scegliere 
dal menu’ e' quindi la prima, quella cioè' 
di inizializazzione. 

Si comincera' con lo scrivere la scheda 
dei dati costituenti le generalità' del 
mezzo, quali ad esempio: modello, mar- 
ca, cilindrata, ecc, ecc... . 

Se i dati forniti sono corretti si comincera' 
a fornire al computer quelli relativi alla 
manutenzione come i periodi espressi in 
chilometri e le relative operazioni specifi - 
cate dalle norme. 

Nella digitazione dei dati non ci si deve 
preoccupare di eventuali errori commes - 
si, in quanto ogni pagina memorizzata- 
viene preventivamente mostrata all'ope - 
ratore per un ulteriore controllo prima di 
essere considerata valida e inviata defi- 
nitivamente alla zona di memoria asse - 
gnatole. 

Per correzioni e’ sufficiente agire sul ta - 
sto: "inst/del" e riscrivere i caratteri in 


modo corretto. Terminate le operazioni di 
immissione dei dati, si passera’ alla regi - 
strazione del file a cui dovrà’ essere dato 
un nome. 

Supponiamo adesso di avere già' a di- 
sposizione il file dei dati e di voler sapere 
quali operazioni, prescritte dalle norme di 
manutenzione dovranno essere effettua- 
te dopo un certo chilometraggio, sul vei - 
colo in questione. 

Il computer ci chiederà' il numero dei chi - 
lometri percorsi, dopodiché' in base a 
dei semplici calcoli andra' a cercare all'in - 
terno del file le operazioni da svolgere 
inerenti al periodo considerato. 

La lettura dei dati d'uscita e' molto corno - 
da in quanto ogni operazione viene mo - 
strata, e’ collocata in una apposita sche - 
da separata dalle altre e richiamabile a- 
gendo sui tasti contraddistinti dai se- 
guenti simboli: . 

Se invece volessimo vedere tutte le ope - 
razioni contemplate dalle norme, indipen - 
dentemente da un particolare periodo, 
dovremo scegliere dal menu' principale, 
la procedura di "aggiornamento". 
Collegando la stampante al computer e' 
anche possibile ottenere un tabulato co - 
stituente la copia del libretto di manuten - 
zione, farne piu' copie o originarne uno 
completamente nuovo. 

Buon lavoro. 

Remarks 


ciclo di manutenzione, il controllo o la so - 
stituzione di ogni suo pezzo e il tempo di 
vita che gli rimane. 

Ovviamente ciò' non e' indispensabile 
per il seemplice propietario di una utilità - 
ria, ma puo'essere utile avere a disposi - 
zione un programma che gestisca le ope - 
razioni di manutenzione memorizzate dal 
computer, e che sia capace poi di sele- 
zionarle e fornire solo quelle relative ai 
periodi voluti. 

Il programma che sto per presentarvi, ha 
queste caratteristiche, e' in sostanza 
un "libretto di manutenzione elettronico", 
rivolto ai possessori di autoveicoli o mo - 
toveicoli, che vogliano controllare e ge- 
stire la manutenzione del loro mezzo di 
trasporto mediante il computer, in parti- 
colare il Commodore C 16. 

Oppure ai possessori di piu' veicoli che 
desiderano controllare e amministrare in 
modo razionale l'efficienza di piu’ mezzi, 
e programmare in "serie" una certa se - 
quenza di operazioni per garantire un co - 
stante mantenimento delle proprie mac- 
chine. 

Il Programma 

Il programma e'comandato da un menu' 
principale che consente di gestire 
quattro distinte operazioni. 

La prima denominata: "inizializazzione", 
permette la creazione di un file contenen - 
te tutti i dati riguardanti il veicolo e la sua 


manutenzione. 

La seconda e' l'aggiornamento, e con- 
sente la visione di tutte le operazioni e 
relativi periodi previste dalle norme, da 
effettuare sul veicolo durante tutto il suo 
ciclo vitale. 

Terza e penultima e' la manutenzione ve - 
ra e propia, tramite la quale si può’ cono- 
scere quali operazioni necessita il mezzo 
dopo un certo quantitativo di chilometri 
percorsi. 

Tutte le informazioni fornite dal computer 
all'utente sono visibili dal video, ma per 
chi possedesse una stampante e'stata 
prevista un'uscita dei dati anche per que - 
st'ultima in modo da creare un’informa- 
zione fisica permanente; ed e' ciò' che 
consente l’ultima opzione denominata 
appunto: "stampa". 

Manuale d'uso 

Il primo passo che l’utente deve fare nel - 
l'utilizzare questo programma, e' sce- 
gliere su quale memoria di massa ester- 
na: disco o cassetta voler immagazzina - 
re i dati, poiché' per prima cosa si me- 
Esaminiamo brevemente le principali li- 
nee di programma, il cui listato e' presen - 
tato in figura uno, mentre la figura due 
contiene il diagramma di flusso. 

linea 5 Definizione dei colori dello scher - 
mo, dei caratteri e del volume del suono. 

400 Scelta delle opzioni presentate dal 
menu'. 

530-610 Immissione delle generalità’ ap- 
partenenti al veicolo in questione 

620-680 Stampa dei dati precedentemen - 
te registrati. 

740-857 Immissione dei dati riguardanti 
la manutenzione del veicolo. 

I valori dei periodi, espressi in chilome- 
tri, sono memorizzati nel vettore KM (I) 
mentre le relative operazioni sono conte - 
nute nella matrice op$ (l,J). Poiché' il 
massimo numero di periodi memorizzabili 
dal programma e' di 12, e un periodo può' 
includere un massimo di dodici opera- 
zioni, il programma potrà' quindi gestire 
un massimo di centoventi operazioni, va - 
lore ritenuto piu' che sufficiente per qual - 
siasi veicolo sia esso auto, moto o altro. 

885-1160 Scelta della periferica su cui 
salvare i dati:floppy-disk, registratola 
cassette. Caricamento del file di dati nel - 
l'unita' prescelta. 

3000-6040 Caricamento dei dati dalla me - 
moria esterna alla memoria centrale. 

6360-7230 Gestione della manutenzione. 

8000-8475 Menu' di stampa e gestione 
gestione della uscita dei dati nella stam - 
pante. 
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5 COLORO, 6, 1 :COLOR4, 6, 1 :VOL8 : rem 178 

400 PRINT" {YEL} {CLR} {RVS } { 2 GIU'} 

{ 13 DES } { 2 SPAZI}*** MENU' *** 



{ 2 SP AZ I } " : COLORI ,16,6 


: rem 

122 

410 

PRINTTAB (13) " 

{ 4 

GIU' }1) { 

2 

SPAZI} INI 


ZIALIZ . " 




: rem 

113 

420 

PRINTTAB (13) " 

{ 2 

GIU' }2) { 

2 

SPAZI }AGG 


IORN AMENTO" 




: rem 

59 

430 

PRINTTAB (13) " 

{ 2 

GIU' } 3) { 

2 

SPAZI }MAN 


UTENZIONE " 




: rem 

15 

440 

PRINTTAB (13) " 

{ 2 

GIU' } 4) { 

2 

SPAZI} STA 


MPA AGG./MAN. 1 

II 



: rem 

112 

450 

PRINTTAB (13) " 

{ 2 

GIU' } 5) { 

2 

SPAZI 

} FIN 


E" 




: rem 

152 

470 

PRINTTAB (4) " { 

4 ' 

GIU' } SCEGLI 

{ FSH } 

-> 


{OFF} : " :GOSUB9900 


: rem 

250 


480 GETKEYA$ : PRINTTAB (16) " { SU} "A$ : F0RT=1T 
099 :NEXT : rem 203 

490 V=VAL(A$) : IFV<lORV>5THEN480 : rem 138 
500 ONVGOTO520, 6030,5000,8000,510 

: rem 244 

510 PRINT" {CLR}" : END : rem 11 

520 GOSUB9950 : rem 238 

530 INPUT” {DES}{ 3 GIU '} {DES } TIPO DI VEIC 
OLO ”;B$ (1) :GOSUB9900 : rem 98 

540 INPUT" {DES }{ 2 GIU ' } {DES }MARCA 

{ 2 SPAZI } " ; B$ (2 ) :GOSUB9900 : rem 221 
550 INPUT" { 2 DES } { 2 GIU'}MODELLO ";B$(3 
) :GOSUB9900 : rem 135 

560 INPUT" { 2 DES } { 2 GIU' } CILINDRATA ";B 
$ (4) :GOSUB9900 : rem 88 

570 PRINT" { 2 DES } { 3 GIU' } NUOVO O USATO 
?{ 3 SPAZI} [N/U]" : rem 21 

580 GETKEYB$ (5) : IFB$ (5) ="N"THEN B$(6)="X" 

:B$ (7) ="X" :GOTO620 : rem 215 

590 IFB$ (5) <>"U"THEN580 : rem 248 

600 GOSUB9950: INPUT" { 2 DES } { 2 GIU'JANNO 

DI FABBRICA " ; B$ ( 6 ) : GOSUB9 90 0 

: rem 238 

610 INPUT" { 2 DES } { 2 GIU'} KM GIA'PERCORS 
I " ;B$ (7) : rem 231 

620 PRINT" {YEL} {CLR} {RVS} RIE 

PI LOGO DATI {OFF} " : COLORI 

,16,6 : rem 33 

630 PRINT" { 2 DES} {GIU' }";B$ (1) : rem 216 

640 PRINT" { 2 GIU'H 2 DES } MARCA : ";B$(2 
) :rem 137 

645 PRINT" { 2 GIU ' } { 2 DES } MODELLO : ";B$ 
(3) :rem 55 

650 PRINT" { 2 GIU'H 2 DES } CILIND . (CC) : " 



;B$ (4) 

: rem 

224 

660 

IFB$ (5) ="N"THEN690 

: rem 

180 

67 0 

PRINT" { 2 DES} {GIU' } ANNO 

: " ;B$ (6) 
: rem 

71 

680 

PRINT" { 2 DES } {GIU ' } KM : 

” ;B$ (7) 

: rem 

181 

690 

GOSUB8880 

: rem 

247 

700 

GETKEYAS : IFA$="C"THEN500 

: rem 

123 

720 

IFA$<>" "THEN700 

: rem 

17 

725 

DIMOP$ (10, 12) :DIMKM (12) : 

DIMO (11) 

: rem 

242 

730 

GOSUB9000 :GOSUB9900 

: rem 

111 

740 

INPUT" {DES} { 2 GIU ' } N . DI 

PERIODI 

(MAX 


.12) " ; Y 

: rem 

31 



760 FORI=1TOY:GOSUB9900 : rem 195 
770 GOSUB9000 : rem 231 
780 PRINT" {RVS} {GIU* } PERIODO N. ";I:GOSU 


B9900 : INPUT" { 2 GIU'IOGNI QUANTI KM." 



; KM ( I ) :GOSUB9900 

: rem 

31 

790 

INPUT" {SU} N. OPERAZIONI { 2 

SPAZI) (MAX. 


10) " ; O ( I ) 

: rem 

107 

795 

GOSUB9000 

: rem 

238 

800 

FORH=lTOO ( I) :GOSUB9900 

: rem 

77 

810 

CO=18 :U=37 

: rem 

7 

811 

GOSUB7200 

: rem 

227 

812 

PRINTCHRS (146) :PRINT" { 3 

GIU 1 ) 



{ 12 SPAZI} OPERAZIONE ";H 

: rem 

210 

813 

PRINT” { 4 GIU'} {RVS}* ATTENZIONE 

*»» 



: rem 

24 

815 

PRINT” { 3 GIU'} DIGITARE 

I CARATTERI 


DALLA TASTIERA { 3 SPAZI}” 

: rem 

142 

816 

PRINT" CERCANDO DI{ 2 SPAZI }NON SUPER 


ARE MAI GLI 88 { 3 SPAZI}" 

: rem 

177 

817 

PRINT" CARATTERI." 

: rem 

62 

818 

PRINT" {GIU ' } PER PASSARE 

ALLA OPERAZI 


ONE SEGUENTE { 3 SPAZI }" :PRINT" PREMER 


E IL TASTO < RETURN >" 

: rem 

132 

820 

GETX$: PRINT" {HOME} {RVS} " 

; OP $ ( H , I ) 

: IF 


X$=" "THEN820 

: rem 

193 

821 

C=ASC(X$) : L=LEN ( OP $ ( H , I ) ) 

: IFC=13THEN8 


41 

: rem 

252 

822 

IFC=20ANDL>0THEN82 6 

: rem 

105 

823 

IFL=200THEN841 

: rem 

19 

824 

IFL>=UTHEN829 

: rem 

27 

825 

OP$ (H, I) =OP$ (H, I) +X$ :GOTO820 : rem 

50 

826 

D=L-1 : OP$ (H, I ) =MID$ (OP$ (H 

, I) , 1,D) +" 


{RVS} PRINT" {HOME} {RVS} ";OP$(H,I) 

: rem 18 9 


827 OP$ (H, I) =LEFT$ (OP$ (H, I) ,D) :GOTO820 

:rem 157 

829 U=U+39+l :OP$ (H, I) =OP$ (H, I) +" 

{ 3 SPAZI }"+X$:GOTO820 : rem 185 

841 GOSUB9000 :PRINT" { 3 GIU'}" : rem 36 

842 PRINT" " ; OP $ ( H , I ) : rem 123 

844 PRINT" { 6 GIU'H 3 SPAZI} {RVS} 

{ 2 SPAZI }VUOI FARE CORREZZIONI ? 

{ 3 SPAZI} [S/N] " : rem 111 

853 GETKEYA$ : IFA$<>"N"ANDA$<>"S"THEN853 

: rem 32 

854 IFA$="N"THEN856:ELSEGOSUB9000 :GOTO810 

:rem 238 

855 GOSUB9000 : rem 235 
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856 

NEXTH 

: rem 

42 

1090 

FORI=lTOY 

: rem 

100 

857 

NEXTI 

: rem 

44 

1100 

PRINT# 3, KM ( I ) 

: rem 

3 

859 

PRINT" { CLR} " : GOSUB88 8 0 

: rem 

156 

1105 

PRINT#3,0(I) 

: rem 

191 

860 

GETKEYAS : IFA$="C"THEN730 

: rem 

135 

1110 

FORH=lTOO (I) :PRINT#3, OP$ (H, 

I) 


880 

IFA$<>" "THEN860 

: rem 

31 



: rem 

6 

885 

GOSUB9 600; INPUT" { 2 GIU'H 2 

DES} NOME 

1120 

NEXTH 

: rem 

75 


DEL FILE " ; F $ 

: rem 

39 

1125 

NEXTI 

: rem 

81 

900 

GOSUB9600 

: rem 

232 

1130 

F0RC=1T07 

: rem 

55 

910 

PRINT" {YEL}{ 3 GIU'} {DES}" 

: rem 

89 

1135 

PRINT#3,B$ (C) :NEXT 

: rem 

76 

950 

PRINT" {DES }{ 2 SPAZI } ASSEGNATO IL 

FIL 

1150 

CLOSE3 

: rem 

112 


E " ; F $ 

: rem 

139 

1160 

PRINT" {CLR} {DES} { 3 GIU'} IL 

{RVSJSAL 

980 

PRINT" { 5 GIU'} {DES} { 3 GIU' 

} SCEGLI L 


VAT AGGIO DATI {OFF} E' STATO 

EFFETTUAI 


A PERIFERICA SU CUI SALVARE 

I 



O," 

: rem 

35 


{ 3 SPAZI }DATI 
990 PRINT" {RVS } {GIU ' } { 


9 DES] 


:rem 113 
D=DRIVE - C 


1170 PRINT" {DES} PREMI {FSH}<M>{OFF} PER R 
ITORNARE AL MENU'PRINCI- PALE" 



CASSETTE " 

: rem 

159 



: rem 

155 

1000 

GETKEYP$ : IFP$="C"THEN1050 

: rem 

244 

1180 

GETKEYAS : IF A$O"M"THEN1180 

: rem 

42 

1030 

IFP$="D"THEN 1052 

: rem 

131 

1190 

GOTO 400 

: rem 

152 

1040 

GOTO 1000 

: rem 

191 

3000 

PRINT" {CLR} { 3 GIU ' } {DES } HAI CARICAT 

1050 

P=1 :GOTO 1075 

: rem 

196 


O IL FILE DI DATI ?{ 2 SPAZI} [S/N]" 

1052 

P=8 :GOTO 1075 

: rem 

205 



: rem 

186 

1075 

COLORI , 1 6 , 6 : PRINT " { CLR } { GIU 

' } PREMI 

3005 

GETKEYA$ : IFA$<>"S"ANDA$<>"N 

"THEN3005 


{ FSH } <R> { OFF } PER PROCEDERE 

ALLA 

OPE 



: rem 

112 


RAZIONE DI SALVATAGGIO" 

: rem 

197 

3010 

IF A$="S"THEN3030 

: rem 

129 

1076 

GETKEYA$ : IFA$O"R"THEN1076 

: rem 

55 

3015 

PRINT" {GIU' } {DES }PREMI <C> 

PER CARIC 

1080 

OPEN3, P, 1,F$ 

: rem 

157 


ARLI" 

: rem 

115 

1085 

PRINT#3 , Y : PRINT#3 , RK 

: rem 

28 

3020 

GETKEYAS : IFA$O"C"THEN8020 

: rem 

27 





3025 

GOSUB9030 

: rem 

22 





3030 

RETURN 

: rem 

166 





5000 

D=0 

: rem 

118 





6030 

GOSUB3000 

: rem 

12 





6040 

GOSUB9700 

: rem 

26 



6360 F0RC=1T07 : IFB$ (C) ="X"ORB$ (C) ="N"THEN 
6365 :ELSEPRINT" {GIU 1 } { 3 DES}";B$(C) 




: rem 

27 

6365 

NEXTC 

: rem 

86 

6370 

FORC=lTO2300 :NEXT 

: rem 

73 

6375 

GOSUB9700 : IFV=3THEN6454 

: rem 

182 

6400 

INPUT" {GIU' } QUANTI KM. SONO 

STATI 

PE 


RCORSI " ; VE 

: rem 

72 

6410 

GOSUB8410 :G0T06475 

: rem 

97 

6454 

GOSUB8420 

: rem 

33 

6475 

PRINT" {CLR} {GIU' }PREMI <C> 

PER CONTI 


NUARE OPPURE <M> PER RITORNARE AL 

ME 


NU'" 

: rem 

140 

6480 

GETKEYA$ 

: rem 

0 

6482 

IFA$="C"THEN6040 

: rem 

133 

6485 

IFA$<>"M" THEN6 4 8 0 : ELSEGOT05 

: rem 

168 

7000 

PRINT" {RVS} {YEL} { 6 DES}{ 8 

GIU* } 



{ 2 SPAZI }<- INDIETRO { 5 SPAZI }AVANT 


I ->{ 2 SPAZI} {OFF}" : COLORI 

,16,6 




: rem 

228 

7010 

GETKEYA$ : IFA$<>" , "ANDA$<>" . 

"THEN7010 



: rem 

41 

7020 

IFA$=" , "THEN7 0 4 0 : ELSERETURN 

: rem 

167 

7040 

H=H-2 : IFH>0THENRETURN : ELSE 

H=0 




: rem 

157 

7050 

RETURN 

: rem 

172 


7055 PRINT" { 3 GIU'} NON E' RICHIESTA NES 
SUNA OPERAZIONE DI { 2 SPAZI }MANUTENZ 
IONE" : rem 11 

7060 PRINT" {GIU' } {DES} PREMI <M> PER RITOR 
NARE AL MENU' " :GOTO1180 : rem 211 

7200 PRINT ”{CLR} {RVS} { 40 SPAZI}"; 
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7205 

PRINT” { 

40 

SPAZI TV- 

: rem 

: rem 

122 

218 

7210 

PRINT” { 

40 

SPAZI }"; 

: rem 

214 

7230 

PRINT" { 

40 

SPAZI}"; : RETURN 

: rem 

242 

8000 

GOSUB3000 


: rem 

11 


8030 GOSUB9900 : PRINT" {CLR} " :PRINTTAB (12) " 
{ 2 GIU' HRVS} MENU' DI STAMPA” 

: rem 52 

8035 PRINTTAB (9) " { 3 GIU'} 1) STAMPA MANU 

TENZ." :rem 245 

8040 PRINTTAB (9) " { 2 GIU'} 2) STAMPA AGGI 

ORNAM . " : rem 4 

8042 PRINTTAB ( 9) "{ 2 GIU') 3) MENU'PRINCI 
p . " : rem 2 9 

8045 PRINTTAB (5) " { 4 GIU'}SCEGLI {FSH}-> 
{OFF} :rem 165 

8050 GETKEYA$: PRINTTAB (18) " {SU} "A$ :FORT=l 



T099 :NEXT 

: rem 

254 

8055 

S=VAL(A$) : IFS<10RS>3THEN8050 




: rem 

229 

8060 

ONSGOTO8070, 8100, 8065 

: rem 

186 

8065 

GOTO 400 

: rem 

160 

8070 

PRINT" {CLR} {RVS} { 3 SPAZIJSTAMPA 

AGG 


I ORNAMENTO { 5 SPAZI}" 

: rem 

214 

8080 

OPEN1 , 4 

: rem 

147 

8085 

PRINT" {CLR} {RVS} { 3 SPAZI} STAMPA 

AGG 


I ORNAMENTO { 5 SPAZI}" 

: rem 

220 

8087 

F0RI=1T07 :INPUT#1,B$ (I) 

:NEXT 




: rem 

18 

8090 

GOSUB8454 

: rem 

38 

8095 

CLOSE1 :GOTO8040 

: rem 

188 

8100 

PRINT" {CLR} {RVS} { 3 SPAZI }STAMPA 

MAN 


UTENZIONE { 7 SPAZI}" 

: rem 

162 

8110 

OPEN1, 4 

: rem 

141 

8115 

F0RI=1T07 : INPUT#1,B$ (I) 

:NEXT 




: rem 

10 

8120 

PRINT" { 2 GIU ' } { 3 SPAZI} STAMPA MANU 


TENZ IONE" 

: rem 

33 

8125 

GOSUB8440 

: rem 

32 

8130 

CLOSE1 :GOTO8040 

: rem 

178 

8410 

GOSUB9700 

: rem 

29 

8415 

IFVE<KM ( 1 ) THEN7055 

: rem 

82 

8420 

FORI=1TOY:IFV=3THEN8440 

: rem 

246 

8430 

I FVE>KM ( I ) THENGOTO 8 440: 

ELSE8470 




: rem 

215 

8440 

FORH=lTOO (I) :GOSUB9700 : 

GOSUB9900 




: rem 

15 

8441 

PRINT" { 2 GIU ' } { 12 DES} {GIU' } {RVS }0 


PERAZIONE N . ” ; H ; I 

: rem 

194 

8442 

PRINT" { 4 GIU' } {DES}";OP$ (H, I) 




: rem 

16 

8444 

GOSUB7000 

: rem 

27 

8460 

NEXTH 

: rem 

89 

8470 

NEXTI 

: rem 

91 

8475 

RETURN 

: rem 

184 


8880 PRINT" { RVS } { 6 GIU'}PER CORREZIONI 
PREMI <{FSH)C{OFF}> PER CONTINUARE" 

: rem 43 

8883 PRINT" {RVS} PREMI <{FSH}SPAZIO{OFF}> 
{ 25 SPAZI}” : rem 145 

8885 RETURN : rem 189 

9000 PRINT" {YEL} {CLR} {RVS} IMMISSIONE DEL 
LE NORME DI MANUTENZIONE {OFF}":COLO 
RI , 1 6 , 6 : RETURN : rem 118 

9030 GOSUB9600 : rem 27 


9040 PRINT" { 5 GIU'} SCEGLI L'UNITA' PERI 
FERICA SU CUI CARI- CARE I DATI : " 

: rem 52 

9050 PRINT" {YEL} { 3 GIU ' } { 8 DESHRVS} 

{ 2 SPAZI }D=DRIVE - C=CASSETTE 
{ 2 SPAZI} {OFF}" : rem 0 

9060 GETKEYA$ : rem 253 

9070 IFA$="D"THEN P=8:S=2:GOTO 6100 

: rem 17 9 

9080 IFA$="C"THEN P=1:S=0:GOTO 9100 

:rem 173 

9090 GOTO 9060 :rem 218 



9100 GOSUB 9600 rrem 25 

9110 INPUT" { 2 DES } { 3 GIU ' }NOME DEL FILE 
";F$ :rem 213 

9130 PRINT" {CLR} {GIU' }PREMI IL TASTO 

{FSH}<C>{OFF} PER AVVIARE IL CARI- C 
AMENTO" : rem 127 

9140 GETKEYA$ : IFA$O"C"THEN6140 : rem 37 
9300 GOSUB9800 : rem 29 

9310 PRINT" {CLR} {GIU' } IL CARICAMENTO DEI 
DATI E' STATO EFETTUATO PER CONTINUA 
RE PREMI <{FSH}C{OFF}>" : rem 184 
9320 GETKEYAS : IFA$O"C"THEN6320 :rem 37 
9340 RETURN : rem 176 

9600 PRINT" {FSH} {YEL} {CLR} {RVS} 

{ 2 SPAZI} *{ 2 SPAZI} CARICAMENTO DAT 
I{ 2 SPAZI } * { 2 SPAZI} {OFF}" :COLORl, 
16,6 : RETURN : rem 140 

9700 PRINT" {YEL} {CLR} {RVS} {< 14 B>] MANUT 


ENZIONE [< 12 B>] " : COLORI, 16,6 : RETUR 



N 

: rem 

224 

9800 

OPEN1 , P, S, F$ 

: rem 

197 

9805 

INPUT# 1 , Y : INPUT#1, RK 

: rem 

38 

9810 

FORI=lTOY 

: rem 

108 

9815 

INPUT# 1, KM (I) 

: rem 

25 

9820 

INPUT #1,0 (I) 

: rem 

204 

9830 

FORH=lTOO (I) 

: rem 

253 

9832 

INPUT #l,OP$ (H, I) 

: rem 

183 

9835 

NEXTH 

: rem 

96 

9840 

NEXTI 

: rem 

93 

9845 

F0RJ=1T07 

: rem 

83 

9850 

INPUT#1,B$ (J) :NEXT 

: rem 

96 

9860 

CLOSE1 

: rem 

126 

9865 

RETURN 

: rem 

188 

9900 

SOUND1, 817, 15: RETURN 

: rem 

4 

9950 

PRINT" {YEL} {CLR} {RVS} { 

12 SPAZI} IMMI 


SS IONE DATI { 13 SPAZI} {OFF}" : SOUND 1, 
817, 15:COLORl, 16, 6 : rem 205 
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E in edicola 

PC World Magazine 


di settembre: 

con un favoloso 
dischetto DataLife 
^ e demo Lotus 


DIVISIONE PERIODICI 





m/ m gruppo editoriale 

Li JACKSON 



DIVISIONE PERIODICI 





JACKSON 

LA BIBLIOTECA CHE FA TESTO 



G. Marano 
PROGRAMMI PER 
ATARI 130XE 

Ì con cassetta) 

>agìne68 , L 19.000 
Cod. CC331 

Per r Atari 130XE è 
disponibile il libro + 
cassetta. Propone ottimi 
N S ^ùrogrammi rivolti ai 
7 raffinati utenti 
7 di questo home 
W giudicato tra i più 
r avanzati tecnicamente 
e più sofisticati 
esteticamente. 


C Prìgmore 
IL BASIC IN 30 ORE 
PER M24 ED M20 
Pagine 322, L 32.000 
Cod. 0216 

Come programmare in 
BASIC i più diffusi 
personal computer 
Olivetti. Un metodo 
completo e veloce per 
chi desidera diventare 
un “professionista” di 
questo linguaggio su M20 
e su M24. 


jjw JACKSON 


D. Meadows 
IL SUPERBASIC DEL 
SINCLAIR QL 
Pagine 256, L 30.000 
Cod. CC286 

Rivolto a tutti i possessori 
del Sinclair QL, il libro 
insegna a dialogare con 
questo personal 
computer, permettendo 
al lettore di capire i 
trucchi più raffinati della 
programmazione in 
SuperBASIC. 

D. Lawrence, M. England 
LINGUAGGIO 
MACCHINA PER IL 
COMMODORE 16 
Pagine 168, L 16.000 
Cod. CO 2 9 

Dalla descrizione della 
struttura interna di un 
chip immaginario alla 
esposizione dettagliata di 
come avvengono ì calcoli 
in codice macchina ; 
l'occasione per 
un approccio professionale 
al linguaggio macchina , 
da parte di un buon 
conoscitore di Basic . 


D. Lawrence 
IL MANUALE DEL 
SINCLAIR QL 
Pagine 208, L 29.000 
Cod. CC287 

Non i soliti programmi, 
ma i listati di un 
software fuori del comune 
con la caratteristica 
peculiare di sfruttare 
appieno il potente 
linguaggio di questa 
macchina : il SuperBASIC. 


ICLAIRI 


G. Marano 
PROGRAMMI PER 
COMMODORE 16 
(con cassetta) Pagine 80 
L 27. 000 , Cod. CC324 

Programmi originali in 
formato listato che 
possono essere 
immediatamente utilizzati 
grazie alla cassetta che 
viene fornita • unitamente 
al libro. Interessanti 
soprattutto per la loro \ 
varietà: grafici, effetti m* 
sonori, interessanti 1 
utility, e giochi divertenti. ' 
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per 
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macchina 
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per 
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il BASIGin 30 ore 
per M24 e M20 
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